Макрос на кнопке по .OnAction - VBA

Формулировка задачи:

Всем доброго времени суток! Есть макрос:

                    Листинг программы
                
Sub macro1(ByVal a%)
   MsgBox "a = " & a
End Sub

Генерирую кнопку на листе, хочу присвоить кнопке

                    Листинг программы
                
.OnAction = "macro1"

и при этом еще как то умудриться присвоить входную переменную

Ругается, не понимаю, как это можно воплотить в жизнь!

                    Листинг программы
                
 
                        
                          
                    
Sub strt()
For i = 5 To 10
    For j = 5 To 10
        With ActiveSheet.Buttons.Add(i * 22.5, j * 22.5, 22.5, 22.5)
            .Characters.Text = ""
            .OnAction = "macro1(1)"
        End With
    Next j
Next i
End Sub

При этом даже если sub превращаю в function, все равно не работает. что делаю не так ?

Решение задачи: «Макрос на кнопке по .OnAction»

textual
                            Листинг программы 
                        
.OnAction = "'macro1 1'"