Aanpassen (Name) CommandButton

[edmoor]

Dit werkt anders prima. 1 Knop, in dit geval de blauwe, die verschillende macro's uitvoert:

Private Sub printen_click()
    MsgBox "Dit is de knop printen"
    Sheets("Rapportage").OLEObjects("printen").Name = "snb_003"
End Sub

Sub snb_003_click()
    MsgBox "Dit is de knop snb_003"
    Sheets("Rapportage").OLEObjects("snb_003").Name = "printen"
End Sub

 

[Symphysodon]

Het is gelukt: edmoor en snb bedankt voor het meedenken en oplossen.

mvg
Marco