Hi,

Right click any worksheet tab, view code and paste this in and run it.
Change the range to where you want the number

Sub numberem()
For x = 1 To Worksheets.Count
Sheets(x).Range("A1").Value = x
Next
End Sub

Mike

"forest8" wrote:

Hi

I currently have a excel workbook that has about 600 individual sheets. I
would like to hardcode a page number of each page. I don't really want to
enter the page numbers manually and was hoping that someone may have a macro
for this.

Any help will be greatly appreciated.