convert ws into xlsm files

[vilas desai]

Dear Experts.
Hope you are all safe and healthy.
I need help to convert worksheets into .xlsm files with the same names
ex ws name: Index, File name: Index.xlsm
The converted files should be saved in a folder on desktop named "Convert""
There would be about 75 such ws in a workbook
The working file is attached
Thanks and best regards
Vilas Desai

[HansV]

Here is a macro:

Code: Select all

Sub SaveSheets()
    Dim strPath As String
    Dim wbkS As Workbook
    Dim wsh As Worksheet
    Dim wbkT As Workbook
    Application.ScreenUpdating = False
    strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Convert\"
    Set wbkS = ActiveWorkbook
    For Each wsh In wbkS.Worksheets
        wsh.Copy
        Set wbkT = ActiveWorkbook
        wbkT.SaveAs Filename:=strPath & wsh.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        wbkT.Close SaveChanges:=False
    Next wsh
    Application.ScreenUpdating = False
End Sub