VBA to Save Excel sheet as New workbook with file name and +1

[FaizanRoshan]

Hi Every One,

I have User Form to enter data in master wb sheet ("Arabic Form").

What i want to save master wb sheet ("Arabic Form") SaveAs new workbook with sheet name("Arabic Form +1") every time i save sheet it increase number.
ex. First save sheet name ("Arabic Form 1") , second time save sheet name (" Arabic From 2") and so on.

Please help if any one know easy way to done it.

Thank you for help.

 

[cooper645]

There may be other ways to accomplish this but this works

Don't forget to backup your work before running a macro

Sub AFsave()


[COLOR=#0000ff]Dim[/COLOR] wb [COLOR=#0000ff]As[/COLOR] Workbook
Sheets("Arabic Form").Copy
[COLOR=#0000ff]Set[/COLOR] wb = ActiveWorkbook
[COLOR=#0000ff]With[/COLOR] wb
.SaveAs "Arabic Form " & Range("[COLOR=#ff0000]A1[/COLOR]") [COLOR=#008000]'Change A1 to whichever cell you want to use as a counter (place the first save number in that cell)[/COLOR]
[COLOR=#0000ff]End With[/COLOR]
Workbooks("[COLOR=#ff0000]Workbook1.xlsm[/COLOR]").Activate [COLOR=#008000]'change Workbook1.xlsm to whatever your original filename and extension is[/COLOR]
Range("[COLOR=#ff0000]A1[/COLOR]") = 1 + Range("[COLOR=#ff0000]A1[/COLOR]") [COLOR=#008000]'change both A1's to whatever cell you chose for your counter[/COLOR]
End Sub

Let me know if you have any problems

Coops