Save As Non Macro Enabled Worksheet-VBA

[bamaisgreat]

I was trying to create a macro that when I open a workbook that is macro-enabled I could simply run some code that will change it to an xls or xlsx and save it as the current file name. I need it to save it to its current location. Thanks as always

 

[Fluff]

How about

Sub bamaisgreat()
   With ActiveWorkbook
      Application.DisplayAlerts = False
      .SaveAs Replace(.FullName, ".xlsm", ""), 51
      Application.DisplayAlerts = True
   End With
End Sub

 

[bamaisgreat]

Thank you for the help. I failed to mention one thing. Can you make it where it will kill the old file??

 

[Fluff]

How about

Sub bamaisgreat()
   Dim fname As String
   With ActiveWorkbook
      Application.DisplayAlerts = False
      fname = .FullName
      .SaveAs Replace(.FullName, ".xlsm", ""), 51
      Application.DisplayAlerts = True
   End With
   Kill fname
End Sub

 

[bamaisgreat]

Worked perfect. I promise this is my last request. There are some people that will be using this that dont know the different type file extensions.
Is there something that could be added so if the workbook is already an xls that it want throw up an error?

 

[Fluff]

This will work regardless of the extension, a long as you don't have any . as part of the file name.

 

[bamaisgreat]

I tried running the macro on the workbook after I had already changed it to an XLS and a VBA message pops up that says runtime error 70 permission denied. I dont have a the workbook password protected so im not sure why this is popping up.

 

[Fluff]

Apologies for the late reply, this must have slipped through the net.
How about

Sub bamaisgreat()
   Dim fname As String
   With ActiveWorkbook
      If ActiveWorkbook.FileFormat = 52 Then
         Application.DisplayAlerts = False
         fname = .FullName
         .SaveAs Replace(.FullName, ".xlsm", ""), 51
         Application.DisplayAlerts = True
      End With
   End With
   Kill fname
End Sub

 

[bamaisgreat]

Thanks for your help. I am getting an error with this at the "End With"

 

[Fluff]

There's a typo, it should be

Sub bamaisgreat()
   Dim Fname As String
   With ActiveWorkbook
      If ActiveWorkbook.FileFormat = 52 Then
         Application.DisplayAlerts = False
         Fname = .FullName
         .SaveAs Replace(.FullName, ".xlsm", ""), 51
         Application.DisplayAlerts = True
     [COLOR=#ff0000] End If[/COLOR]
   End With
   Kill Fname
End Sub