Contar celdas seleccionadas

Hola, Sony !

... contar el numero de celdas en un rango
' Range("A4").Select
' Range(Selection, Selection.End(xlDown)).Rows.Count
... utilizando esto ... me da un error. ''uso de la propiedad no valido" [...]

la propiedad '.Count' NECESITA 'ser asignada' como valor de una variable [p.e.]
[... ... ...]
Dim Total As Long
Range("a4").Select
Total = Range(Selection, Selection.End(xlDown)).Rows.Count
MsgBox Total
[... ... ...]

Saludos,
Héctor.