Works for me:

Sub RenameTab()
'Sheets("Sheet1").Name = Sheets("Sheet1").Range("A1").Value
ActiveSheet.Name = ActiveSheet.Range("A1").Value
End Sub

Regards, TMS