It is named the same. A for each sh in activesheet.shapes... showing all
shape names in a msgbox verified that the name was the same.

I discovered the problem was that my sheet was protected. There really
should be a better error message to report when you are trying to change a
protected sheet. Maybe since this is a shape as opposed to a value or
formula MS didnt extend the errors to fully cover shapes.

--
Regards,
John


"JLGWhiz" wrote:

Check your button name in the new sheet. I'm not sure it copies the name over.

"John Keith" wrote:

THIS MONTH has a command button named "btnProcessData"
After the copy, the new sheet that has been renamed to the text string
stored in sWksName still has the button named exactly the same (verified with
a For Each loop displaying the names of all shapes on the new sheet)
Why does this code cause an error?

With ThisWorkbook
.Sheets("THIS MONTH").Copy After:=.Sheets(.Sheets.Count)
.Sheets("THIS MONTH (2)").Name = sWksName
.Sheets(sWksName).Shapes("btnProcessData").Delete
End With

The ".delete" is getting a runtime error 1004 application defined or object
defined error.

--
Regards,
John