How to make a Command Button on one sheet activate Command Button on other sheet?

[ddub25]

I have a Command Button on 'Sheet3 (Output)' with the following code that I was hoping would activate the Command Button on 'Sheet2 (Exercises)'. When I click it though, it comes back with a 'Run-time Error '9': Subscript out of range'. In Developer Mode, when I click on the button that I am trying to activate in 'Sheet2 (Exercises)', the code in the formula bar reads '=EMBED("Forms.CommandButton.1","")'. Any ideas why it is not working?

Private Sub CommandButton1_Click()

    Sheets("Sheet2").CommandButton1_Click
    
End Sub

 

[Skyybot]

I would suggest that when you create a new CommandButton, that click New in the Assign Macro window. That way each button will have it's own macro and then you can do the following:

Sub Button1_Click()

End Sub
Sub Sheet2_Button1_Click()
    Button1_Click
End Sub

 

[Skyybot]

I would suggest that when you create a new CommandButton, that click New in the Assign Macro window. That way each button will have it's own macro and then you can do the following:

Sub Button1_Click()

End Sub
Sub Sheet2_Button1_Click()
    Button1_Click
End Sub

or

Sub Button1_Click()

End Sub
Sub Sheet2_Button1_Click()
    Call Button1_Click
End Sub

 

[ddub25]

I'm not sure what you mean by the Assign Macro window. Each Command Button has it's own code box/window when I right click it and click View Code. The button on the 2nd sheet just needs to contain code that will execute the Command Button on the first sheet.

 

[Skyybot]

I'm not sure what you mean by the Assign Macro window. Each Command Button has it's own code box/window when I right click it and click View Code. The button on the 2nd sheet just needs to contain code that will execute the Command Button on the first sheet.

Found an answer that I think will help. Remove the Private statement from each of the CommandButton1_Click() Subs. That way they can be referenced as follows: Example shows CommandButton1_Click() macro for Sheet2 CommandButton:

Sub CommandButton1_Click()
Sheet1.CommandButton1_Click
End Sub

 

[ddub25]

Thanks very much Skybot - works great. Thanks for your help, I really appreciate it.

 

[Skyybot]

Thanks very much Skybot - works great. Thanks for your help, I really appreciate it.

Glad to help.