VBA Worksheet Tab Rename Macro Causing Excel Infinite Loop

Howdy,

So, I found the following "Worksheet Tab Rename " macro code posted on MrExel by member VOG, in the following thread:

http://www.mrexcel.com/forum/excel-q...s-formula.html

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

Nobody over there seems to be able to replicate my issue or determine what is causing my issue, so I thought that I should post here in the hopes that, since I can actually attach my spreadsheet here, folks could open it & replicate my issue.

The macro code works perfectly, except when I make a copy of the Worksheet (by right-clicking the Tab & selecting "move or copy") and then paste it in the workbook, it starts an infinite loop which I must kill Excel in order to get out of.

I know it's the macro code that is the issue, or that is triggering the issue, because when I have the code commented out, I can make a copy of the Worksheet.

My "A1" in the code is "S47" in my sheet, and it is calculated from a formula. Also, the cell & formula get updated when a user selects a choice from a drop-down list in a different cell. I want the user to select the choice from the drop-down list, and then that choice gets used as the name for the tab.

If he copies the sheet, he will then select another (different) choice from the drop-down list on that sheet. Each sheet that he copies must have a different choice selected, so at no time will there be more than 1 sheet with the same choice selected (except of course on the initial "copy & paste" of the tab, which I think is causing the infinite loop).

If anyone can chime in w/ a solution, as well as how to troubleshoot / debug this, any & all help would be much appreciated.

Thanks,
Rob
Excel 2007
Windows 7