Coping command button

[hoyos]

I have copied a command button and paste it in another sheet. I have managed to change the name but the macro won’t work. When right clicking the button I don’t get properties in the drop down box. Is there another way of accessing properties for the command button?

 

[Fluff]

If you run this code, does the caption change

Sub Check()
   ActiveSheet.DrawingObjects("Button 1").Caption = "Test"
End Sub

 

[hoyos]

If you run this code, does the caption change

Sub Check()
   ActiveSheet.DrawingObjects("Button 1").Caption = "Test"
End Sub

Sorry no.

 

[Fluff]

In that case it's not "Button 1", which maybe hidden somewhere. Try this & hopefully the button should appear in D4

Sub Check()
With ActiveSheet.DrawingObjects("Button 1")
   .Visible = True
   .Top = Range("D4").Top
   .Left = Range("D4").Left
End With
End Sub

 

[hoyos]

In that case it's not "Button 1", which maybe hidden somewhere. Try this & hopefully the button should appear in D4

Sub Check()
With ActiveSheet.DrawingObjects("Button 1")
   .Visible = True
   .Top = Range("D4").Top
   .Left = Range("D4").Left
End With
End Sub

Ran the code and nothing happened.

 

[Fluff]

Did you get any error messages?

 

[hoyos]

Did you get any error messages?

No

 

[Fluff]

Ok, select one of the buttons & on the ribbon select "Shape Format" & then "Selection Pane" that should show you all the shapes that are on the sheet. Is there one called Button 1

 

[hoyos]

Is the correct code still assigned to the button?

Yes I’ll try inserting a new button

 

[hoyos]

Ok, select one of the buttons & on the ribbon select "Shape Format" & then "Selection Pane" that should show you all the shapes that are on the sheet. Is there one called Button 1

Yes

 

[hoyos]

Yes

It worked!! all back to normal many thanks for your help you are a star.