No soy capaz de pasar el parámetro

[Benito Bartolomé]

Hola a todos y todas;

-A ver si me podéis echar un cable.

Estoy intentado pasar el nombre del formulario por parámetro a un procedimiento que tengo en un módulo y me genera error y no sé porque.

Si la macro la ejecuto desde la subrutina del formulario va bien en cambio desde el módulo no va y no sé porque.

Sub EnviarHojaActiva(vForm As UserForm) 'Sub EnviarHojaActiva(UserForm1 As UserForm) <---Tampoco va
Dim RutaTemporal As String, NombreArchivo As String


Application.ScreenUpdating = False
Application.DisplayAlerts = False

NombreArchivo = ActiveSheet.Name
RutaTemporal = VBA.Environ("temp") & "\"
NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx"

    ActiveWorkbook.ActiveSheet.Copy
    ActiveWorkbook.SaveAs NombreArchivo

    vForm.txtAdjunto = NombreArchivo

    ActiveWorkbook.Close False
    
On Error GoTo 0

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Adjunto macro por si acaso.

Tengo otras macros donde uso 

Cita

Sub Macroxxxx(Mixxxx As UserForm, vFila As Integer)

y sí me va.

¿?

 

MHActiva.xlsm

[DiegoPC]

Cuando llamas al procedimiento, no le pongas coma...

Pusiste:  EnviarHojaActiva , Me

Debe ser: EnviarHojaActiva  Me

 

[Benito Bartolomé]

Hace 11 minutos , DiegoPC dijo:

Cuando llamas al procedimiento, no le pongas coma...

Pusiste:  EnviarHojaActiva , Me

Debe ser: EnviarHojaActiva  Me

 

Hola y gracias Diego, maldita coma, nos hacemos mayores y hay que empezar a poner gafas.????????‍♂️