Of side relevance to your posting ..
here's one I use to rename all sheets in the book at one go

Sub RenameWS()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.Name = Range("A2").Value
Next
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
Downloads:22,000 Files:370 Subscribers:66
xdemechanik
---
"santaviga" wrote:
Is there a fast way to rename sheets as per a cell on a worksheet?
Cell A2 Pay
Link this cell so that it call Sheet 2 Pay.