I'm sorry if this has been discussed elsewhere but I have been looking all over for this answer. I feel like this is my last resort; I hope you can help.

I am in charge of developing forms on Excel. With ONE worksheet containing only ONE form, each workbook will have any number of worksheets (from 1 to over 200). Also, the forms are quite diverse in size and shape.
I have created a macro designed to insert the required header and footer information, for each form (AKA each worksheet), simultaneously for the entire workbook (see code below).

Now here is my challenge. Within the required footer information, each worksheet (form) must have a unique number (e.g., 7510001); the department is 751 and the first form number will be 0001. The next form (worksheet) must have the number 7510002 in its footer information, and so on.

Before running the macro I will edit the first number in Visual Basic (code is run from Add-in), and then have the macro populate the rest of the worksheets, within that workbook, by increments of 1. I have multiple workbooks and will need to pick up numbering where I left off in a previous workbook. I can do this manually as I need to change the header information on each workbook.

Is this possible?

Thank you in advance.

Bob 
Sub Set_All_Sheets()
Dim wkbktodo As Workbook
Dim ws As Worksheet
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
With ws.PageSetup
.CenterHeader = "&18Facilities Maintenance Instrument 1 Week Checklist"
.LeftFooter = _
        "&""-,Regular""&11Route Completed Form to Group Lead for Processing" & Chr(10) & "" & Chr(10) & "Retention: 11yrs"
.CenterFooter = "PROPRIETARY INFORMATION"
.RightFooter = _
        "&""-,Regular""&11Group Lead Approval___________ Date___________" & Chr(10) & "" & Chr(10) & "7510001.rev01"
End With
Next ws
End Sub