I've looked at about every article/question on this issue that I've been able to find, but no luck -- thanks in advance for your help:

In my "This Workbook," I have the following:

```
Option Explicit

Public Sub Workbook_Open()
Application.OnKey "+^%{+}", "Insert_Columns"
End Sub

```

In a Module, I have the following:

```
Sub Insert_Columns()

Dim num As String

num = InputBox("How many columns do you want to insert?")

If num <> "" Then
    If num > 0 Then ActiveCell.Offset(0, 1).Resize(1, num).EntireColumn.Insert
End If

End Sub

```

For some reason, the shortcut is not working. I've tried many variations of this, but does anyone have an idea why the shortcut would not be working? The macro runs great if I click "Run" manually.

Thank you!