Some of the error messages are lacking in specificity and you have to do a
lot of trouble shooting to tie down the problem. I was not sure about the
name transfer. I know it copies any associated code over for each control,
guess I should have assumed the name would be copied over also. Glad you
found the problem and thanks for posting back. Helps me learn also.
"John Keith" wrote:
> 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
|
Similar Threads
