SaveAs "Filename"_1

[davehunter]

Hi Guys,

I'm looking for a line of code to add into a macro that will save the open workbook (lets call it workbook1) in the format of

Filename_1 e.g. Workbook_1

I'm sure its simple but I'm having a blank.

Thanks!
Dave

 

[Datsmart]

Something like:

Var1 = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Var1 & "_1"