Bruge genvejstaster i Excel

Hvordan bruger man selvdefinerede genvejstaster i Excel? F.eks. vil jeg gerne have udført denne stump kode, når brugeren trykker på [ctrl]+[s]

Sub Gem()
    ActiveWorkbook.SaveAs FileName:= _
        "C:\Workbook.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Sheets("Menu").Select
End Sub