Saving workbook as 2003 xls then reopen macro enabled workbook

[JPalms]

Hi all,

I am trying to put together a spreadsheet that, amongst other things, uses a macro to save the file in the existing xlsm format, then save the same sheets with an alternative name in 2003 compatible xls format and closing this workbook, before finally reopening the original xlsm document. I've got the first 3 parts working but not sure if there is a way of reopening the original doc via this macro as it will not always have the same name or be saved in the same directory.

It would also be great to ignore any compatibility or overwrite checks and the code I have written doesn't seem to do this either!

Any help would be very welcome! Thanks in advance.

So far the section for this piece of the macro is:

Sub Example ()

ActiveWorkbook.Save

Dim SvName2 As String
SvName2 = Range("C2")
ActiveWorkbook.Saveas Filename:=SvName2, FileFormat:=56
Application.DisplayAlerts = False
ActiveWorkbook.CheckCompatibility = False

ActiveWorkbook.Close True

End Sub

[HaHoBe]

Hi, JPalms,

maybe have a bit different go at that. Save the workbook as xlsm, copy the sheeets to a new workbook, save that as xls and close, you´re back in the original file.

Please add Code Tags around the procedure as requested by Forum Rule #3 - thanks.

Ciao,
Holger

[JPalms]

Thanks Holger, I found a workaround similar to the one suggested that didn't require me to close out of the initial xlsm workbook.

Cheers,
JPalms