calvuch respondió:
Hice la prueba como sigue En modulo1 : Option Explicit Public Const r = "$A$1:$C$1" ' le pasamos el rango como string Y lo utilizo en modulo 2 Option Explicit Sub SSS() Dim s As Range Set s = ActiveSheet.Range(r) ' utilizamos el string s.Select Set s...