En vba para excel cómo pasar parámetros de un procedimiento a otro

Quisiera por favor vuestra ayuda para saber por que no va el programa2 que llama al programa1 pasando los parámetros hoja y celda_inicial.

Este programa tendría que situar la celda activa en la última fila vacía.

Veo que el problema es al pasar los parámetros, porque cuando ejecuto el programa X con los parámetros  en el código [(Hoja = 2), y celda_inicial = A1)], este funciona sin problemas.

Ahí dejo el código y gracias.

Option Explicit

_______________programa 1____________

Sub ultimoregistro(hoja As String, celda_inicial As String)

    Worksheets(hoja).Activate

    ActiveSheet.Range("Celda_Inicial").Activate

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.Offset(1, 0).Activate

    Loop

End Sub

________________programa2_____________________       

Sub CommandButton1_Click()

   Call ultimoregistro("menu", "A1")

End Sub

________________programa X_________________

Sub registro()

    Worksheets(2).Activate

    ActiveSheet.Range("A1").Activate

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.Offset(1, 0).Activate

    Loop

End Sub