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]