Save XLS file without opening

[axelg]

When I run my script, at the end I have

ActiveWorkbook.SaveAs Filename:=path & fnameBLT, FileFormat:=51

To save the file to a new xls file. (its in fact sheets hidden, specific sheets actiive and with protection. This to pass on to someone)

All seems to work, file is written as I want, only issue I'm facing is following.

My file is now called MYFILENAME.xlsx ... when I run the above this file I'm working in gets renamed to the new dynamic naming in the above (so NEWNAMING.xls.
The fact that it gets a new name and saves that is ok, that's what I wanted, but it also opens . That means that MYFILENAME.xlsx is closed/no longer visible and the NEWNAMING.xls is now visible.
Is there a way to set it that this only runs in the background without opening the file?

 

[davesexcel]

Are you thinking of SaveCopyAs ?

Workbooks(“Your Workbook Name”).SaveCopyAs(

 

[RoryA]

Just note that you can't use SaveCopyAs if you are changing format. It's not clear from your post if that's the case here, but I thought I'd mention it.

 

[axelg]

Just note that you can't use SaveCopyAs if you are changing format. It's not clear from your post if that's the case here, but I thought I'd mention it.

Thanks, that is indeed something I'm running into

ActiveWorkbook.SaveAs Filename:=path & fnameBLT, FileFormat:=51 Works Fine (but not what I Want)
ActiveWorkbook.SaveCopyAs Filename:=path & fnameBLT, FileFormat:=51 Gives an error probably as original file type is xlsm.

Do you have a genius way to solve that

 

[RoryA]

You could copy all the sheets to a new workbook, and then save that. Or use SaveCopyAs, open the copy and save it in the desired format, then close it again.

 

[axelg]

d copy all the sheets to a new workbook, and then save that. Or use SaveCopyAs, open the copy and save it in the desired format, then close it again.

Ok, thanks the info.