Mike,
Deve Peterson got there first, so I used his solution, but thanks for the
response anyway.
(See also my reply to Dave!)
regards,
Lionel

"Mike H." wrote:

Someone else came up with this which should work:

Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1

For i = 1 To nLastRow
If Cells(i, "A").EntireRow.Hidden Then
Else
'perform your task!
End If
Next