Rango seleccionado

Una falsa alarma, va bien y rápido.
Era para una macro de conversión de Ptas. a Euros.
Al final me ha quedado así:

Sub PASAR_A_EUROS()
'
' PASAR_A_EUROS Macro
' Acceso directo: Ctrl+Mayús+E
Dim rngC As Range
Dim RangoActivo As Range
Set RangoActivo = Selection
For Each rngC In RangoActivo.Cells
If Not IsNumeric(rngC.Value) Then GoTo 100
rngC.Value = rngC.Value / 166.386
rngC.NumberFormat = "#,##0.00 $"
With rngC.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 10
.ColorIndex = 5
End With
100: Next rngC

End Sub

(Excel 2000; Símbolo de moneda en Sistema = "Euro")

"Cheeky" escribió en el mensaje news:

La consulta es breve:
Una vez definida una variable
Dim RangoActivo As Range
RangoActivo >
¿Qué hay que poner después del igual para que RangoActivo sea igual a las celdas seleccionadas?

Si pongo...

Set RangoActivo = Selection

Tarda muchísimo, supongo porque recorre toda la hoja...