Invocar a una macro (procedimiento)

Esn este ejemplo el procedimiento "Sub Principal" llama al procedimdiento "Sub auxiliar"
para que nos muestre un msgbox (un mensaje)

'--------------------------------------------------------------------------------------------------
'declaramos la varible rango de tipo range
'la declaramos a nivel de modulo(disponible
'para los procedimientos de este modulo)


Dim rango As Range



Sub principal()

'ahora asiganmos el rango

'asignamos el rango "B10 a B20" a la variable de tipo rango


Set rango = Range("B10:B20")

'ahora hacemos referencia al objeto rango para pintar sus celdas

rango.Interior.ColorIndex = 3

auxiliar 'invocando a la macro auxiliar

End Sub

Sub auxiliar()


MsgBox "Las celdas del rango : " & rango.Address & " han sido pintadas"


End Sub