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