Select Multiple Sheets Based on a Cell

[Flinger]

I have a column where each cell contains the names of a variable number of worksheets in the format ["sheet1", "sheet2", etc. ] without the brackets but with the quotation marks. I would like to have some code that will select all of the sheets mentioned in a given cell. I found lots of threads about selecting an individual sheet based on a cell, but none about selecting multiple sheets. If it is easier, I can change the format of of the cells, or break each cell out into multiple cells in a given row.

 

[Case_Germany]

Hi,

if cell "A1" e. g. "Sheet1", "Sheet2", "Sheet3", "Sheet4" then mark "A1" and run the following code:

Option Explicit
Sub Main()
    Dim intCount As Integer
    Dim strTMP() As String
    Dim strSheet As String
    On Error GoTo Fin
    strTMP = Split(Selection, """")
    If UBound(strTMP) <> -1 Then
        For intCount = 1 To UBound(strTMP) Step 2
            strSheet = strTMP(intCount)
            If Not Evaluate("ISREF(strSheet!A1)") Then
                Worksheets(strTMP(intCount)).Select False
            End If
        Next intCount
    End If
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub