Rename tabs

Hi ,
I want to rename all my tabs present in the workbook as Page 1, Page 2 , Page 3 ......
Please help.

I'm assuming there are simply too many tabs to do this manually?

If so, the following macro should help:

Please Login or Register  to view this content.

Thanks for the quick response.

It is changing the name but creating a run time error.

I wrote a code and it is changing it .

Sub renameSheets()
Dim iSheetCount
For iSheetCount = 1 To Sheets.Count
Sheets(iSheetCount).Name = "Page " & iSheetCount
Next iSheetCount

End Sub

But

But i would like a code that will ask the order of renaming like.Page / No./Tel/Acc etc. I mean i can make it according to my choice.
Thanks for your help buddy.

Whoops, should have tested beforehand!

Sorry, I'm not really clear about that last part - are you saying you want the tabs to be named Page 1, Page 2, etc or No. 1, No. 2, etc, depending on an input?

Yes you are absolutely right .
Thanks in advance.