Parameterübergabe per Button-Name

Hallo
ich habe hier einige Schaltflächen, die alle die selbe Sub aufrufen sollen, allerdings mit unterschiedlichen Parametern.
Meine Idee war jetzt,die Buttons so zu benennen:
But_1
But_2
But_3
....
und in der Sub dann den Buttonnamen zu ermitteln und das letzte Zeichen zu nehmen:
Param = Right(Application.Caller,1)

Ist das eine saubere Sache, oder kommen/können da Probleme (auftauchen), die ich aktuell nicht sehe?
Gruß Jörg