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.