Private sub Calculate

[aBcdcg]

Hello,

I've next code, working well. De code will look in cell 'Database!B9' Iwant to expand the code, so it will look in cel 'Database!B9 or 'Database!B10'.

How do I expand this code?

THANKS!!

[CODE=vba]Private Sub Worksheet_Calculate()

   Sheets("A100").Visible = True
   Sheets("B200").Visible = True
   Sheets("C300").Visible = True

   Sheets("D400").Visible = True



   Select Case Worksheets("Database").Range("B9").Value
      Case Is = "1", "2"
         Sheets("A100").Visible = False
         Sheets("B200").Visible = False
         Sheets("C300").Visible = False

      Case "3", "4", "7", "8"
         Sheets("B200").Visible = False
         Sheets("C300").Visible = False
     
      Case "13", "14"

         Sheets("A100").Visible = False
         Sheets("D400").Visible = False
      End Select

End Sub

 

[jkpieterse]

like so?

Private Sub Worksheet_Calculate()

    Sheets("A100").Visible = True
    Sheets("B200").Visible = True
    Sheets("C300").Visible = True

    Sheets("D400").Visible = True
    HideSheets Worksheets("Database").Range("B9").Value
    HideSheets Worksheets("Database").Range("B10").Value
End Sub

Sub HideSheets(cellValue As String)
    Select Case cellValue
    Case Is = "1", "2"
        Sheets("A100").Visible = False
        Sheets("B200").Visible = False
        Sheets("C300").Visible = False
    Case "3", "4", "7", "8"
        Sheets("B200").Visible = False
        Sheets("C300").Visible = False
    Case "13", "14"
        Sheets("A100").Visible = False
        Sheets("D400").Visible = False
    End Select
End Sub

 

[aBcdcg]

like so?

Private Sub Worksheet_Calculate()

    Sheets("A100").Visible = True
    Sheets("B200").Visible = True
    Sheets("C300").Visible = True

    Sheets("D400").Visible = True
    HideSheets Worksheets("Database").Range("B9").Value
    HideSheets Worksheets("Database").Range("B10").Value
End Sub

Sub HideSheets(cellValue As String)
    Select Case cellValue
    Case Is = "1", "2"
        Sheets("A100").Visible = False
        Sheets("B200").Visible = False
        Sheets("C300").Visible = False
    Case "3", "4", "7", "8"
        Sheets("B200").Visible = False
        Sheets("C300").Visible = False
    Case "13", "14"
        Sheets("A100").Visible = False
        Sheets("D400").Visible = False
    End Select
End Sub

I think that, in this solution, the sheets will be hide if there is a case in the cel Database!B9 and B10. So if Database!B9 = 3, sheet B200 will be delete, but also if Database!B10=3, the sheet B200 will be delete. So I had to make a solution to the code or make a extra step in Database!B10.

Thanks!