Macro to append number to file name

  • Thread starter Thread starter Guitarzann
  • Start date Start date
G

Guitarzann

Greetings,

I am trying to find the VB code to create a process where the workbook can
be saved on the same folder without overwriting the existing workbook.
Multiple people will be dropping their copies of the workbook onto the same
folder.

The goal is to have the folder contain files to look like:
Master (1),
Master (2),
Master (3), etc.

Thanks for your help!
Rick
 
Sub saveworkbookas()
dim i as long
dim fname as string
For i = 1 To 3
fname = "Master" & i & ".xls"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname
Next i
End Sub
 
Back
Top