I have code in each worksheet to update the worksheet name based on cell contents but it doesnt automatically change.
If the details in the cell changes I have to view the code and run it on every worksheet. Im not a huge expert on VBA so I am mostly likely missing something. Can anyone assist please? Thank you in advance
The Code is :-
Sub rename_Sheet()
Dim OldName As String
OldName = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = Range("N4").Value
On Error GoTo 0
If OldName = ActiveSheet.Name Then
MsgBox "Worksheet not renamed, Illegal name or no data available"
End If
End Sub
If the details in the cell changes I have to view the code and run it on every worksheet. Im not a huge expert on VBA so I am mostly likely missing something. Can anyone assist please? Thank you in advance
The Code is :-
Sub rename_Sheet()
Dim OldName As String
OldName = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = Range("N4").Value
On Error GoTo 0
If OldName = ActiveSheet.Name Then
MsgBox "Worksheet not renamed, Illegal name or no data available"
End If
End Sub