Wie kann ich einem Button mehrere Makros zuordnen?

ich habe ein großes Problem. Ich schaffe es einfach nicht einer Schaltfläche mehrere Makros zuzuordnen. Ich habe es bisher so gemacht:

Sub ButtonTageBerechnen()
Dim button As button
Set button = ActiveSheet.Buttons.Add(300, 10, 100, 50)
With button
.Caption = "Tage neu berechnen"
.OnAction = "TageBerechnen"
End With
Set button = Nothing

End Sub

Wenn ich nun "OnAction" mehrere Makro-Namen zuordne sagt er mir dass das nicht geht. Wie mache ich das am günstigsten?

Viele Grüße und schon mal vielen Dank im Voraus.

Andreas