используйте свой личный макрос во всех файлах Excel

Question

Я хочу создать личный макрос таким образом, чтобы при многократном нажатии ярлыка он перебирал различные подпрограммы в каждой новой книге Excel без запуска моего макроса.

Я написал приведенный ниже код и сохранил это под моим личным макросом, но не уверен, почему это не загружается в каждой новой книге Excel? когда я играю сабвуфер colorShortcut, он на самом деле работает

, очень благодарен за помощь.

Dim counter As Integer
Sub colorShortCut()
    Application.OnKey "^{q}", "subDispatch"
End Sub
Sub subDispatch()
    If counter = 0 Then
        Call subYellow
    ElseIf counter = 1 Then
        Call subBlue
    ElseIf counter = 2 Then
        Call subRed
    Else
        Call subWhite
    End If
End Sub
Sub subYellow()
    Selection.Interior.Color = vbYellow
    counter = counter + 1
End Sub
Sub subBlue()
    Selection.Interior.Color = vbBlue
    counter = counter + 1
End Sub
Sub subRed()
    Selection.Interior.Color = vbRed
    counter = counter + 1
End Sub
Sub subWhite()
    Selection.Interior.Color = vbWhite
    counter = 0
End Sub