Navigating Visible cells only

[deedisdone]

I am trying to move down a certain number of rows x amount of times, regardless if there is visible or hidden rows. Here's a copy of some of the code.

vCMoveMe = 1
vMoveMe = Range(vSdOr & newname & "count&quot.Value
Do While vCMoveMe < vMoveMe
If Selection.EntireRow.Hidden = False Then
ActiveCell.Offset(1, 0).Activate
vCMoveMe = vCMoveMe + 1
End If
If Selection.EntireRow.Hidden = True Then
ActiveCell.Offset(1, 0).Activate
End If
Loop
Do While Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Activate
Loop

It needs to go through this and reach a final point in a column with other data in it. I have tried ActiveCell.Offset(x, 0).activate, where x is the number of rows down I want to move, but I only want to move x amount of times if the rows are visible. Is there an easier way to do this? The code above is slowing my procedure down to a crawl. Thanks in advance

 

[aMember]

Not sure if I understand the your code but maybe this might help.

'Change &quot;A:A&quot; to whatever column you are looking at
with ActiveSheet
CountOfVisibleRows = _
WorksheetFunction.CountA(.Range(&quot;A:A&quot.SpecialCells(xlVisible))

end with


That will give you the number of visible rows and tell you how many you need to move down.

HTH