Help with changing code for numbering

[scottsoo9]

This is my code for numbering in order each of my 500 worksheets from 1 to 500 in order. (Tab 1 gets 1 in cell A1, Tab 2 gets 2 in cell A1........)

Sub TabNumInCellA1()
Dim ShtNum As Double

For ShtNum = 1 To Worksheets.Count
Worksheets(ShtNum).Range("A1") = ShtNum
Next ShtNum

End Sub

How do I change the code to make my number start at a different number besides 1? Example: Tab 1 gets 501 in cell A1, Tab 2 gets 502 in cell A2)

Any help would be appreciated.

 

[njimack]

Worksheets(ShtNum).Range("A1") = ShtNum + 500

 

[VoG]

Try

Sub TabNumInCellA1()
Dim ShtNum As Double

For ShtNum = 1 To Worksheets.Count
    Worksheets(ShtNum).Range("A1") = ShtNum + 500
Next ShtNum

End Sub