Sub SaveNewWorkbookAs()
Dim wb As Workbook
Dim filename As String
filename = "C:\Temp\MyFile.xlsx"
Set wb = Workbooks("Book1") ' or ActiveWorkbook
wb.SaveAs filename:=filename, FileFormat:=xlOpenXMLWorkbook
End Sub
try this does it work?