Hide sheets based on a cell value in a list

[rob_sheeds]

I have a list with account numbers. Each account has a sheet. If the account balance is zero, I would like to hide that sheet. Need help with the code.
Account Balance
12345 -
This corresponding sheet "12345" would need to be hidden and then move onto the next account in the list.
I can name ranges and manipulate code just cant write it that well.
Thanks in advance!!!

 

[villy]

Try:

Sub hd()
Dim ws As Worksheet
'On Error Resume Next
For Each ws In Worksheets
For i = 2 To Sheets.Count
If ws.Name = Range("A" & i) Then
    If Range("B" & i) = 0 Then
        If ws.Visible = xlSheetVeryHidden Then
            ws.Visible = xlSheetVisible
        Else
            ws.Visible = xlSheetVeryHidden
        End If
    Else
        If ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVisible
    End If
End If
Next
Next
End Sub

Col A - Account Name 'Change to suit
Col B - Account Balance 'Change to suit