vba set sheet tab name = cell value

Dear Sirs,

I've tried the following codes, but however hard I tried to modify the scripts, there is always errors like error code 1004 :

Private Sub Worksheet_Activate()

ActiveSheet.Name = ActiveWorkbook.Sheets("Movement").Range("$AC$4").Value

End Sub

I've tried changing a bit like the following but still encounter error
Sheets(1).Name = ActiveWorkbook.Sheets("Movement").Range("$AC$4").Value

Could someone kindly please assist, as I'm still a beginner in vba.

Thanks in advance.



Would like