you might want to think a bit differently

dim rng as Range
dim rng1 as Range
set rng = Activesheet.Autofilter.Range.Columns(1).cells
' adjust range not to include header row
set rng = rng.offset(1,0).Resize(rng.rows.count-1)
' adjust range to refer only to visible cells
On Error Resume Next
set rng1 = rng.SpecialCells(xlVisible)
On Error goto 0
if not rng1 is nothing then
for each cell in rng1
sStr = sStr & cell.Address & ", "
Next
sStr = left(sStr,len(sStr)-2)
msgbox sStr
Else
msgbox "No visible rows"
End if

This will allow you to work with the visible cells in the filter


Tom Ogilvy wrote in message
...
? cells(18,4).EntireRow.Hidden
False
Rows(18).Hidden = True
? cells(18,4).EntireRow.Hidden
True


--
Regards,
Tom Ogilvy


TonyJeffs wrote in message
om...
Suppose I use the autofilter command so that only rows 10 16 18 22 are
visible,
Is it possible to establish whether a cell is visible using a macro?
Something like:
msgbox cells(18,4).visible

Thanks
Tony