Automatically change a tab's name to a cell with a formula.

Hello,
I would like to automatically change a tab's name to whatever the value is in cell A1 on that same sheet. I found the Excel Forum thread below that provides a solution for this:

https://www.excelforum.com/excel-for...d-formula.html

In this thread, the following code is used to make this happen:

Private Sub Worksheet_Calculate()
On Error Resume Next
Sheet1.Name = Range("A1").Value
End Sub

I know I am a total VBA noob, but this seems pretty simple and self explanatory, but for the life of me I cannot get it to work.
Thanks.

Richard you are an Excel saint!!

That did the trick. Holy cow, did I go round and round with that sucker.

Many thanks!