worksheet name to change with cell G5

[bluepenink]

Hello

I have this code

Public Sub RenameSheet()
NewName = Range("G5").Value
ActiveSheet.Name = NewName
End Sub

when i run the macro, it changes the worksheet name to cell G5, which is great

however how can i automate it, so whenever i change the value in G5, excel automatically changes the worksheet name

can someone pls help! thxs

 

[Jonmo1]

Try this

Right click the sheet's tab, view code
Paste the following

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Me.Name = Me.Range("G5").Value
On Error GoTo 0
End Sub