Macro To Changes Tab Names Based on Cell Value

[legalhustler]

I need help with a macro that will change all the tab names of my worksheets based on the left 4 characters (they are generally numbers and has a leading zero) from the value in cell A4. If there is no value in cell A4 then the code should do nothing. Can someone help?

 

[Fluff]

How about

Sub legalhustler()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      If Not Ws.Range("A4") = "" Then Ws.Name = Left(Ws.Range("A4"), 4)
   Next Ws
End Sub