Is there a method to loop thorugh each row of a filtered data set? Should I
just copy the filtered data set to another sheet and run my loop there since
the data will be in sequential rows? Thanks.

Mike

Dim rng as Range, rng1 as Range
Dim rng2 as Range
set rng = activesheet.autofilter.range
set rng1 = rng.offset(1,0).resize(rng.rows.count-1,1)
On error resume next
set rng2 = rng1.specialCells(xlVisible)
On error goto 0
if not rng2 is nothing then
for each cell in rng2
msgbox rng2.Address
Next
End if

--
Regards,
Tom Ogilvy

"MJRay" wrote in message
...
Is there a method to loop thorugh each row of a filtered data set? Should
I
just copy the filtered data set to another sheet and run my loop there
since
the data will be in sequential rows? Thanks.

Mike