iterate through SpecialCells(xlCellTypeVisible) Row#, Range.Address

Hi,

My problem is that now that I have added a filter there are only 3 visible cell in the range, but "LastRow" is echoing 97, which is correct because that is where the last cell is, but I dont want to iterate through all of the hidden rows till I get to 97.

Could someone tell me how I need to structure my current ForLoop:

Dim LastRow As Integer
LastRow = ActiveSheet.Cells(Rows.Count, "Z").End(xlUp).Row 

Dim iCount As Integer
'        For iCount = 10 To LastRow

So that I could use this:

Dim v As Range 'http://www.ozgrid.com/forum/showthread.php?t=15629&p=79287#post79287
    Set v = Range("A2:G" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells 
    MsgBox "The cells are " & v.Address

Im lost & I have been on this all day. Im wish I came here & asked 1st thing this morning. I wasted a whole day #facePalm#


TIA

~Note~
This is how I was gonna do my Range I tested it & it works. I just dont know how to put it all togehter with a ForLoop.

ActiveSheet.Range(Cells(10, 26), Cells(LastRow, 26)).SpecialCells(xlCellTypeVisible).Cells