duplicate sheet and increase the serial number in each sheet.

[yossisho]

I have a lab form in Excel.
In this form, there's a unique serial number.
I need to duplicate this sheet 110 times with continuous serial numbers. (I need to increase the serial number by 1 on each sheet.)

Thanks for your help.
Yossi

EDIT:
it should be in VBA

 

[mumps]

Change the sheet name (in red) to suit your needs,

Sub CreateSheets()
    Application.ScreenUpdating = False
    Dim x As Long
    For x = 1 To 110
        Sheets("Lab Form").Copy after:=Sheets(Sheets.Count)
        Range("B8") = Range("B8") + x
    Next x
    Application.ScreenUpdating = True
End Sub

 

[yossisho]

Thanks for your prompt attention to this matter.
the script multiples the sheets but the serial number stays without change.

 

[mumps]

Make sure the cell address (in red) matches the cell address containing the serial number. In your original post. it appeared to be in cell B8.

 Range("B8") = Range("B8") + x