How to save the file with macro code

[ThrottleWorks]

Hi,

I am trying to save as a file. Original file is a macro. When I save as the file and re-open it I cannot see code in the file.

I know I am doing some silly mistake here but not able to find.

Can anyone please help me in this.

Please note original file is in .xls format.

Sub Save_File()

Application.DisplayAlerts = False

Dim sFilename As String

Dim MappingSht As Worksheet

Dim MyFolderPath As String

Set MappingSht = MacroBook.Worksheets("Tab_Headers")

MyFolderPath = MappingSht.Range("B1").Value

sFilename = Worksheets("Summary").Range("A3").Value

ActiveWorkbook.SaveAs Filename:=MyFolderPath & sFilename & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Range("A1:A3").ClearContents

  ThisWorkbook.Worksheets("Summary").Range("A1:A3").ClearContents
Application.DisplayAlerts = True
End Sub

 

[PCosta87]

Hi,

I am trying to save as a file. Original file is a macro. When I save as the file and re-open it I cannot see code in the file.

I know I am doing some silly mistake here but not able to find.

Can anyone please help me in this.

Please note original file is in .xls format.

Sub Save_File()

Application.DisplayAlerts = False

Dim sFilename As String

Dim MappingSht As Worksheet

Dim MyFolderPath As String

Set MappingSht = MacroBook.Worksheets("Tab_Headers")

MyFolderPath = MappingSht.Range("B1").Value

sFilename = Worksheets("Summary").Range("A3").Value

ActiveWorkbook.SaveAs Filename:=MyFolderPath & sFilename & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Range("A1:A3").ClearContents

  ThisWorkbook.Worksheets("Summary").Range("A1:A3").ClearContents
Application.DisplayAlerts = True
End Sub

Hi,

ActiveWorkbook.SaveAs ... ".xlsm" perhaps?
EDIT: also change xlOpenXMLWorkbook to 52

 

[ThrottleWorks]

Hi @PCosta87 sir, I tried that, even that is not working. do not know why.

Thanks a lot got the help. Have a nice day ahead.

 

[PCosta87]

Hi @PCosta87 sir, I tried that, even that is not working. do not know why.

Thanks a lot got the help.

I just edited... you need to change file format to 52

 

[ThrottleWorks]

Hi @PCosta87 sir, you are rockstar ! Thanks a lot, I knew I am doing some silly mistake.

Thanks once again.

 

[PCosta87]

Hi @PCosta87 sir, you are rockstar ! Thanks a lot, I knew I am doing some silly mistake.

Thanks once again.

You are welcome
Have a nice day