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

One way:

Sub dl()
  Dim wks           As Worksheet
  Dim rVis          As Range
  Dim rRow          As Range

  Set wks = ActiveSheet
  Set rVis = wks.AutoFilter.Range

  If rVis.Rows.Count > 1 Then
    Set rVis = rVis.Offset(1).Resize(rVis.Rows.Count - 1)
    Set rVis = rVis.SpecialCells(xlCellTypeVisible)

    For Each rRow In rVis.Rows
      ' carry on ...
    Next rRow
  Else
    MsgBox "No visible cells"
  End If
End Sub

Hi & Thx for the lightnig fast reply & your help.
Also too, thx for helping so many others, & sharing your knowledge. You' ve saved my bacon more times than you know.

@ dlow

You're welcome.

@ berlan

That's very kind of you, but I think it's not real robust and will require some tweaks. I don't have much occasion to code around filters.

Its really quite good. JMHO

Option Explicit 'Courtesy of: shg _
http://www.excelforum.com/excel-programming-vba-macros/1070208-iterate-through-specialcells-xlcelltypevisible-row-range-address.html#post4006324
Sub Filter_Lynx_O() 
Dim wks As Worksheet: Set wks = ActiveSheet
Dim rVis As Range: Set rVis = wks.AutoFilter.Range
Dim rRow As Range
        If rVis.Rows.Count > 1 Then
          Set rVis = rVis.Offset(1).Resize(rVis.Rows.Count - 1)
          Set rVis = rVis.SpecialCells(xlCellTypeVisible)
              For Each rRow In rVis.Rows
                  Debug.Print rRow ' carry on ...
              Next rRow
        Else
          MsgBox "No visible cells"
    End If: Set wks = Nothing: Set rVis = Nothing: Set rRow = Nothing
End Sub

Hi, well it doesnt seem as though I need to add another loop.

So how can I get the next up coming "X" row# without messing up my loop?

or could my forLoop release 2 range/rows @ 1 time

~Update~

I think I might have it. [Debug.Print rRow_i.Offset(1)]

I need to test with a larger dataSet though, right now I only have 3 Cell in this sheet.
Maņana