VBA Code to Ctrl+Home in Freeze Panes ignoring Hidden Cells

[SanjayGMusafir]

In most of my Excel sheets, I use Freeze Panes. And to keep my work visibly tidy, I hide rows.

Now, I have VBA to reach First Cell after Frozen Pane. And also, VBA for ignoring Hidden Rows. But when I combine both to reach First Visible Cell - It takes a lot of time.

I strongly believe that there must be a better way of doing things than I'm doing right now. So Please help me with a refined and faster way to get the intended results. Thanks

The code I'm using right now is as under -

Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select

Do Until Selection.EntireRow.Hidden = False

If Selection.EntireRow.Hidden = True Then
ActiveCell.Offset(1, 0).Activate
End If

Loop

 

[mikerickson]

This avoids looping

With ActiveSheet
    With Range(.Cells(1, 1), .UsedRange)
        With .Offset(ActiveWindow.SplitRow, ActiveWindow.SplitColumn).SpecialCells(xlCellTypeVisible)
            .Cells(1, 1).Select
        End With
    End With
End With

 

[SanjayGMusafir]

Thanks Sir. It just served the purpose.