selecting sheets

[dc2288]

Hi,

Could you guys help me write code for

Selecting all sheets in a workbook except two of them, or better yet

Selecting all sheets whose names are contained in Column A1 - A50 of the workbook?

Thanks!

 

[carddard]

Hi,

You could use a simple array:

Sheets(Array(1, 2, 3, 4, 5)).Select

 

[Legacy 68668]

Hi,

Could you guys help me write code for

Selecting all sheets in a workbook except two of them, or better yet

Selecting all sheets whose names are contained in Column A1 - A50 of the workbook?

Thanks!

try

Sub test()
Sheets([transpose(a1:a50)]).Select
End Sub

 

[dc2288]

Thanks guys,

But I need to be able to stop when there's nothing more in A column.

Sheet names are defined in column A. But A can contain between 0-50 names. I kinda need it to populate only names that are shown there.

either by loop function or for each function

Thanks!!

 

[Legacy 68668]

Sub test()
With Range("a1", Range("a" & Rows.Count).End(xlUp))
    If .Rows.Count = 1 Then
        Sheets(Range("a1").Value).Select
    Else
        Sheets(Application.Transpose(.Value)).Select
    End If
End With
End Sub

 

[dc2288]

Woohoo~

Worked very well~
Thanks a ton!