Page numbers in a cell

[Bob W]

I have over 200 work sheets in a workbook and I need to number them. I would like to add some code that will number them automatically into a cell on each worksheet. I would also like to have them numbered automatically if I add a worksheet or simply renumber the entire workbook each time I add a worksheet.

Any ideas on how I can do this?

 

[bergy]

try this replacement line

sh.Range(myvalue).Value = sh.Index