Jack,

Try

ActiveSheet.Name = ActiveSheet.Range("G1").Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"JackR" wrote in message
...
I have this routine that I am runing, but the problem is it
changes all the
tabs on every sheet, how can I have only change the tab for the
sheet I am
working on?

Here is what I am using

Sub nametab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("G1").Value
Next i
On Error GoTo 0

Any help would be great.