Genvejstast til VBA kode

Hej eksperter, kan nogen hjælpe med at finde ud af hvorfor addHotKey ikke vil afspille vis_kostpriser?

Sub vis_kostpriser()

    ActiveSheet.Unprotect
    Columns("H:L").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

Private Sub addHotKey()
    Application.OnKey "+^Z", "vis_kostpriser"
End Sub