Selecting Sheets (Excel)

[EByker]

I need to select a group of sheets, where the inclusion of each sheet in the workbook is based on a value in each sheet. (For example, select all sheets which have a 1 in cell A1.)

How can I do this in VisualBasic?

Bertie

[SammyB]

I need to select a group of sheets, where the inclusion of each sheet in the workbook is based on a value in each sheet. (For example, select all sheets which have a 1 in cell A1.)

How can I do this in VisualBasic?

Bertie

Sub SelectOne()
    Dim s() As String
    Dim ws As Worksheet
    Dim i As Integer
    i = 0
    For Each ws In Worksheets
        If ws.Cells(1, 1).Value = 1 Then
            ReDim Preserve s(i)
            s(i) = ws.Name
            i = i + 1
        End If
    Next ws
    Worksheets(s).Select
End Sub

HTH --Sam

[EByker]

Sub SelectOne()
    Dim s() As String
    Dim ws As Worksheet
    Dim i As Integer
    i = 0
    For Each ws In Worksheets
        If ws.Cells(1, 1).Value = 1 Then
            ReDim Preserve s(i)
            s(i) = ws.Name
            i = i + 1
        End If
    Next ws
    Worksheets(s).Select
End Sub

HTH --Sam

Thanks a lot! Problem solved!

Regards, B