Invertir seleccion

hola, 'anonimo' !

¿es posible invertir una seleccion?
Ejemplo: Selecciono filas 3, 5 y 7.
Al invertir la seleccion estarian seleccionadas todas las filas excepto la 3, 5 y 7.

[aunque parezca un 'juego de palabras']...
la unica manera de 'de-seleccionar' una seleccion es... seleccionando una [diferente] seleccion ;)
la siguiente macro, 'invierte' las filas =>completas<= [vs. la actual seleccion] 'pero...'
es necesario 'recorrer' =>todas<= las filas [de la hoja o de un rango 'especificado'] y...
'detectar/descartar' cada una de ellas [si esta ya 'incluida' en la seleccion actual] por el metodo 'Intersect'
[comentario] si dentro de la seleccion actual existen filas 'completas' y celdas 'solitarias' [NO la fila 'entera']
el metodo [intersect] las considera =>tambien<= como 'dentro del rango' a verificar [filas completas]
[sugiero y] estoy considerando/restringiendo la 'comparacion' a [solamente] la columna 'A' de la seleccion actual ;)
[obviamente] si usas las 65536 filas de la hoja... la macro se 'tomara' un [poquitillo de] tiempo 'extra' :(

saludos,
hector.
en un modulo de codigo 'normal' ==Sub InvertirSeleccionDeFilas()
Dim Fila As Long, Filas As Range
For Fila = 1 To 35 '65536
If Intersect(Range("a" & Fila), Selection) Is Nothing Then
If Filas Is Nothing _
Then Set Filas = Rows(Fila) _
Else Set Filas = Union(Filas, Rows(Fila))
End If
Next
Filas.Select
Set Filas = Nothing
End Sub