OnKey

ich möchte einer Tastenkombination eine bestimmte Funktionalität zuweisen. Mit 'OnKey' funktioniert das auch.

Meine Frage wäre nun, ob ich der Funktion die ich dann aufrufe Parameter mitgeben kann?

Bsp.:
Private Sub Workbook_Open()
'hier soll an die sub 'Message' ein Parameter übergeben werden
Application.OnKey "%{F11}", "Message"
End Sub

sub Message(str as string)
msgbox str
end sub

Vielen Dank, Gruß

Max