If you are doing it in a userform, set a commandbutton's height to 0, accelerator to "s" and put "s" in the caption name for the button.

[VBA]Private Sub CommandButton1_Click()
Label1_Click
End Sub

Private Sub Label1_Click()
MsgBox "Label1"
End Sub[/VBA]