Using VBA code to save all workbooks

[TylerSeeds]

Hello all,

I am very new to using codes and I am still learning!

I am using MrExcels VBA code to assgn a new invoice number, save and clear contents in the worksheet. But the worksheet I am using this for is a lookup file for multiple other worksheets within the same file.

When I click my save icon I created with macros, it only saves that particular worksheet to a new file. But I want to copy/save all the worksheets within that file to a new file, you following?

The code I am using is below:

Sub NextInvoice()
Range("v1").Value = Range("v1").Value + 1
Range("A2:Q57").ClearContents
End Sub

Sub SaveInvoiceWithNewName()
Dim NewFN As Variant
' Copy Invoice to a New Workbook
For Each Wkb In Workbooks
If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then
Wkb.Save
NewFN = "C:\location\SampleInvoice" & Range("v1").Value & ".xlsx"
NextInvoice
End Sub


Any help would be greatly appreciated! Thanks in advance!