VBA to Hide Tabs based on Cell contents located in a "Log" tab

[Evremonde]

Hello All:

I have a workbook that has a tab named "Log". The workbook also has many other tabs as well. In the "Log" worksheet, range A3:A200 contains tabs names. Range D3:D200 contains either "Yes" or "No" or "...". I would like to add VBA to hide tabs where (for example) if D3 contains "No", the tab name found in A3 hides. This VBA working for the ranges described. I would like to assign to a 'button' to run the VBA as necessary.

Thank you for the assistance...

~l

 

[Fluff]

How about

Sub Evremonde()
   Dim Cl As Range
   
   With Sheets("Log")
      For Each Cl In .Range("A3", .Range("A" & Rows.Count).End(xlUp))
         If Cl.Value <> "" Then
            If Evaluate("isref('" & Cl.Value & "'!A1)") Then
               Sheets(Cl.Value).Visible = Cl.Offset(, 3).Value = "Yes"
            End If
         End If
      Next Cl
   End With
End Sub

 

[Evremonde]

This works. Thank you my friend...

 

[Fluff]

You're welcome & thanks for the feedback

 

[Evremonde]

Hello Fluff:

Referring to the VBA in this thread. I have a spreadsheet with tab names "Log", "A","B", and "C". These are referenced in the "Log" tab beginning st A3. The VBA works fine. However, if I add a tab named "1000" and reference "1000" in the "Log" tab as described, I get a 'subscript out of range' error and debug points to "Sheets(Cl.Value).Visible = Cl.Offset(, 3).Value = "Yes". Can you diagnose?

~e

 

[Fluff]

If you have numbers, they need to be converted to strings, like

               Sheets(CStr(Cl.Value)).Visible = Cl.Offset(, 3).Value = "Yes"

 

[Evremonde]

Good Day Fluff:

That worked perfectly. Thank you very much...

~e

 

[Fluff]

You're welcome & thanks for the feedback