'Save a copy of your current .xlsm Workbook to new a new .xlsx file format workbook while keeping original file open.
'General Example. You will need to modify to make it specific for your needs.
'Save WB to new format while keeping original file open
Sub SaveWB()
Dim Folder As String, FileName As String, FilePath As String
Dim DestWB As Workbook
Folder = "D:\xOptimumC\tmp" 'Edit - folder must already exist
FileName = "MyNewWorkbook.xlsm" 'Edit
Folder = Trim(Folder)
If Not Right(Folder, 1) = "\" Then
Folder = Folder & "\" 'add backslash if not present
End If
If InStr(FileName, ".") > 0 Then
FileName = Left(FileName, InStr(FileName, ".") - 1)
End If
FilePath = Folder & FileName & ".xlsm"
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs (FilePath)
DoEvents
Set DestWB = Application.Workbooks.Open(FileName:=FilePath)
DoEvents
DestWB.SaveAs FileName:=Folder & FileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook 'see XlFileFormat Enumeration for different formats
DoEvents
DestWB.Close False
Kill FilePath
Application.DisplayAlerts = True
End Sub