I got this from another post where some one else asked a similar question.
This works exactly as I wanted. Thank you to everyone that helped.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ExitMe
If Not Intersect(Target, Range("G1")) Is Nothing Then
Me.Name = Range("G1").Value
End If
ExitMe:
Application.EnableEvents = True
End Sub

"S_Steele1812" wrote:

Is there a way to make a tab assume the same value as a cell on that sheet?
ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
value update automaticaly when the Cell value is changed.