I currently have a workbook that I am trying to have the tab name reflect what is in the sheets cell "A1" for every sheet. I currently have the code set up as below, however it requires that I click each tab in order to get it to change, is there a way to get it to do this function without having to click the sheet tab?
Private Sub Worksheet_Activate()
On Error Resume Next
Me.Name = Range("a1").Value