Macro to append number to file name

[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

 

[Don Guillett]

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