No rocket science.
Alternative Code:
Private Sub CommandButton1_Click() M_snb 1 End Sub Private Sub CommandButton2_Click() M_snb 2 End Sub Sub M_snb(y) UserForm1.Caption = OLEObjects(y).Name UserForm1.Show End Sub
No rocket science.
Alternative Code:
Private Sub CommandButton1_Click() M_snb 1 End Sub Private Sub CommandButton2_Click() M_snb 2 End Sub Sub M_snb(y) UserForm1.Caption = OLEObjects(y).Name UserForm1.Show End Sub