Sheet Name in Cell

[Rumpkin]

I use this code to change the sheet name to what is in the cell;
As of now I need to edit the cell (F2) in order for the sheet name to change
I need it to be dynamic so I don't have to do the edit

Private Sub Worksheet_Change(ByVal Target As Range)
        'Change reference cell to the reference cell in the worksheet. Edit (F2) Cell to Change the sheet name
    If Not Intersect(Target, Range("G3")) Is Nothing Then
        ActiveSheet.Name = "P.O. " & ActiveSheet.Range("G3")
    End If
End Sub

 

[Osvaldo Palmeiro]

If there is a formula in G3 then try this instead.

Private Sub Worksheet_Calculate()
 Me.Name = "P.O. " & [G3]
End Sub

 

[Rumpkin]

Bingo!!
Thanks!!