How does VBA determine the 1st visible ws?

[pilot]

Several macros determine which worksheets are visible or hidden. I would like for the macro to end with the first sheet selected (active, visible on screen, not sure of terminology). First means the leftmost tab (of visible sheets) in the order I have them which is not alphabetical and not in sheet number order either.

All I can think of is to use a bunch (more than would ever be needed) of
ActiveSheet.Previous.Select
but there has to be a better way.

 

[Al Chara]

Dim i As Integer
Do
i = i + 1
On Error Resume Next
Worksheets(i).Select
Loop Until Worksheets(i).Visible = True


Will select the first visible worksheet.

_________________
Hope this helps.
Kind regards, Al.
This message was edited by Al Chara on 2002-04-09 07:11

 

[Dave Hawley]

Hi Pilot

Not too sure I have understood but try this:

Dim iSheet As Integer

    For iSheet = 1 To Worksheets.Count
        If Sheets(iSheet).Visible = True Then
           Sheets(iSheet).Select
           Exit For
        End If
    Next iSheet

 

[pilot]

You both understood it fine. Thanks