per button makro aus modul1 aufrufen

hier der quelltext

Private Sub CommandButton2_Click()
update_from = "test_from.xls"
update_to = "test_to.xls"
Modul1.Makro_kopieren(update_from, update_to)
End Sub

in modul1:

Sub Makro_kopieren(update_from, update_to)
MsgBox update_to
End Sub

vielen dank für eure hilfe!

herbert