Selecting sheets (tabs) based on name and a cell value

[tommyleinen]

This is a bit beyond my reach. I'm needing to write some vba that I can assign to a macro button which will select the names of those sheets determined by a marker "X" running from a front page summary sheet which is basically as follows:

Tab Name (Col A7:Z Last row) is where the sheet names are listed
Select this tab? (Col Z7:Z Last row) is where the X's are listed


Leveon Bell X
Todd Gurley
Tom Brady X
Alex Smith X
Patrick Mahomes
Etc

So when I run the macro (press the button) the sheets named "Leveon Bell", "Tom Brady" and "Alex Smith" are selected ready for printing.

I hope one of the many capable people here can assist! thanks in advance

 

[Fluff]

How about

Sub tommyleinen()
   Dim ary As Variant
   Dim Cl As Range
   Dim i As Long
   
   ReDim ary(1 To Application.CountIf(Range("Z:Z"), "x"))
   For Each Cl In Range("A7", Range("A" & Rows.count).End(xlUp))
      If Evaluate("isref('" & Cl.Value & "'!A1)") Then
         If LCase(Cl.Offset(, 25)) = "x" Then
            i = i + 1
            ary(i) = Cl.Value
         End If
      End If
   Next Cl
   Sheets(ary).Select
End Sub

 

[tommyleinen]

Hi Fluff,

This is fantastic! Thank you very much for the swift fix!

 

[Fluff]

You're welcome & thanks for the feedback