Hide Sheets Based On Value

[Hammer18]

Hello, is there VBA that can look at a specific cell (or multiple cells) on each sheet and hide that sheet if the value (or all values in the case of multiple cells) is 0? The cell reference is different on each tab and can change based on data that is added or removed. Each sheet name are different account numbers. Thank you

 

[kevin9999]

Thank you, leave it with me

 

[kevin9999]

Please try the following on a copy of your workbook. It assumes you do have a sheet called "TB" that will not be assessed, and therefore always visible.

Option Explicit
Sub Hammer18()
    Dim ws As Worksheet, c As Range, i As Long
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "TB" Then
            i = 0
            For Each c In ws.UsedRange.SpecialCells(xlCellTypeConstants)
                If c = "Balance" Then
                    If c.Offset(0, -1) <> 0 Then i = i + 1
                End If
            Next c
            If i > 0 Then ws.Visible = True Else ws.Visible = False
        End If
    Next ws
End Sub

 

[Hammer18]

That worked on my test worksheet. I should be able to tweak it to make it work on the working copy. Thank you!

 

[kevin9999]

Happy to help & welcome to the Forum