Select Sheet Array based on value of cells

[mclambchop]

Hello,

I want to select up to 12 sheets based on the value of a cell range. I have buttons that if selected will add a TRUE or if not selected a FALSE to range V12 t V32.

I then want to select the sheet names if the cell has a TRUE. I know what the code should look like but I cant figure out how to write the if part into it.

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "10", "11", "12")).Select


Could anyone help?

 

[Yongle]

You have not told us which cells contain sheet names
VBA below assumes that column V holds TRUE/FALSE and column U contains the sheet names
- amend as required

Sub SelectSheets()
    Dim sheetArr() As String, i As Long, C As Range
    For Each C In Range("V12:V32")
        If C Then
            ReDim Preserve sheetArr(0 To i)
            sheetArr(i) = C.Offset(, -1).Value
            i = i + 1
        End If
    Next
    Sheets(sheetArr).Select
End Sub

 

[mclambchop]

You have not told us which cells contain sheet names
VBA below assumes that column V holds TRUE/FALSE and column U contains the sheet names
- amend as required

Sub SelectSheets()
    Dim sheetArr() As String, i As Long, C As Range
    For Each C In Range("V12:V32")
        If C Then
            ReDim Preserve sheetArr(0 To i)
            sheetArr(i) = C.Offset(, -1).Value
            i = i + 1
        End If
    Next
    Sheets(sheetArr).Select
End Sub

That worked perfectly, thank you very much. Sorry, forgot to confirm where my sheet names where. I moved them to column U and works perfectly...

 

[Yongle]

Sorry, forgot to confirm where my sheet names where. I moved them to column U and works perfectly...

No need to apologise - I expected you to adjust the code not move your values!