پرسش افزودن ماکرو به خروجی

[kazem1359]

سلام
بنده در یوزر فرم دکمه ای گذاشته ام که از یکی از شیتهای اکسل خروجی ( copy) میگیره و در درایو d ذخیره می کنه حالا شیتی که می خواهم خروجی یا همون کپی بگیرم دارای یک ماکرو هستش متاسفانه فایلی که ذخیره می شه (یا همون خروجی) بدون ماکروی درون شیت هست ایا راهی هست که فایل با ماکروی درون همان شیت ذخیره بشه . ممنون میشم راهنمایی کنید
اسم شیتی که می خواهم خروجی بگیرم qekha هست.
کدی که در دکمه خروجی قرار داره در زیر هستش:

 Sub CommandButton11_Click()
Dim WB As Workbook
Dim wbs As Workbook
Dim sht As Object
Dim strSavePath As String
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
strSavePath = "d:\"
Set wbs = ActiveWorkbook
For Each sht In wbs.Sheets
qekha.Copy
Set WB = ActiveWorkbook
WB.SaveAs strSavePath & sht.Name
WB.Close
MsgBox ChrW(68) & ChrW(1582) & ChrW(1585) & ChrW(1608) & ChrW(1580) & ChrW(1740) & ChrW(32) & ChrW(1587) & ChrW(1575) & ChrW(1582) & ChrW(1578) & ChrW(1607) & ChrW(32) & ChrW(1588) & ChrW(1583) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(32) & ChrW(1583) & ChrW(1585) & ChrW(1575) & ChrW(1740) & ChrW(1608)
Exit Sub

Next
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Failed. Error number=" & Err.Number & ". Error description=" & Err.Description & "."
End Sub

[kazem1359]

سلام کسی نیست راهنمایی کنه اساتید محترم لطفا!