Auto Excel file copy and crete files with given names

[harinsh]

Hi Team,

I'm looking for one macro code in order to generate the excel files and give the standard excel file names.

Example: I have one master file in the given path like C:\Temp\ and input box required to assign the number of file option. If I declare 10 files then my master file should get 10 copies and save it the above path....

It's really much appreciate if you can provide me the above vba code to get the required output.

Thanks

 

[patel45]

Sub a()
n = InputBox("number of files to save")
fpath = ThisWorkbook.Path
fname = ThisWorkbook.Name
fname = Left(fname, InStr(fname, ".") - 1)
For j = 1 To n
  ThisWorkbook.SaveCopyAs (fname & j & ".xlsm")
Next

End Sub

 

[harinsh]

Thanks for your quick solution....