Format 51

[billandrew]

Good Evening

Looking for some assist here. I am saving a workbook whichcontains several worksheets. When the new file is created there are two issues.

1. Message indicating to save the new file as an xlsx not amacro enabled file.

2. The new Worksheet the sheets have been grouped.

How can I avoid each of the above.

The code I am currently working with is:

Sub SaveE()
Dim Mypath As String
Dim Filename As String
Mypath = Environ("USERPROFILE") & "\Desktop\"
Filename = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Sheets.Select
ActiveWorkbook.SaveAs Filename:=Mypath & " " & Filename & " " & ".xlsx", FileFormat:=51
End Sub

 

[MARK858]

See if the below is close (untested)

Sub SaveE()
    Dim Mypath As String, mywkbk As Workbook
    Dim Filename As String
    Set mywkbk = ActiveWorkbook
    ActiveWorkbook.Sheets.Copy
    Mypath = Environ("USERPROFILE") & "\Desktop\"
    Filename = CreateObject("Scripting.FileSystemObject").GetBaseName(mywkbk.Name)
    ActiveWorkbook.SaveAs Filename:=Mypath & Filename & ".xlsm", FileFormat:=52
End Sub

 

[billandrew]

Works Perfect! The File Format I was looking for was 51. Changed it with no issues.Thank You once again...

 

[MARK858]

Works Perfect! The File Format I was looking for was 51. Changed it with no issues.Thank You once again...

Now I'm puzzled by the below I thought you wanted to save it as a macro enabled workbook?

1. Message indicating to save the new file as an xlsx not amacro enabled file.

 

[billandrew]

My confusion.No worries, the code is fine...

 

[MARK858]

Happy you have a solution.