No puedo ejecutar una instrucción Sub con argumentos!!

[sesebas]

Hola a todos,

Disculpénme porque de seguro que esto es demasiado básico, pero si no pregunto no aprendo...

Porqué puedo ejecutar esto (se activa con F8):

Sub test()

End Sub

Mientras que esto no?

Sub test(xx as String)

End Sub

Gracias por la orientación que me puedan dar...

[ceSharp]

Hola sesebas,

Entiendo que cuando pulsas F8 quieres ejecutar un Sub, es así?
no lo he mirado ni probado pero supongo que el problema de que no se ejecute ese Sub es porque tiene un parámetro. cuando una función (o Sub, o procedimiento, como lo quieras llamar...) necesita un parámetro, si no se lo pasas da un error, porque le falta dicho parámetro. Tú al pulsar F8 estas llamando a esa función pero si no le envías ningún parámetro no se ejecuta. Evidentemente de esta forma no le puedes pasar ningún parámetro y ahí esta el problema.

Si nos quieres explicar para qué o por qué quieres hacer esto quizá podamos ayudarte.

salu2

[sesebas]

Hola ceSharp,

Muchisimas gracias por responder a mi pregunta, te cuento. Después de mucho trabajar (no soy informático) conseguí construir una macro bastante compleja que finalmente va muy bien, pero ya que hice eso, ahora la quiero refinar y me encuentro con que siempre mis "Sub" (hice varios intentos) aparecieron declarados sin argumentos pues editaba mis macros a partir de lo obtenido al grabarlas directamente de excel.

Ahora quiero mejorar el procedimiento a objeto de facilitar el formateo de muchisimas tablas con las que debo trabajar y estoy probando un ejemplo obtenido de un manual, así llegué a este código, pero al pulsar f8 no se ejecuta. Cómo debería quedar este código para que sí funcione?... si lo consigo podre seguir adelante.

Código Macro:

Sub Poner_Bordes(Nombre_Hoja As String, Rango_Total As String, Rango_Primera_Fila As String)
    Worksheets(Nombre_Hoja).Activate
    ActiveSheet.Range(Rango_Total).Select
    ' Hacemos cuadro y líneas verticales.
        '.......
        '.......
    ' Selección de la primera fila
    ActiveSheet.Range(Primera_Fila).Select
    ' Hacemos línea inferior doble
    '.........
End Sub
 

Gracias por tu ayuda.