Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wie1 As Integer, Wie2 As Integer, Wie3 As Integer
If Target.Address = "$B$16" Then
Select Case LCase(Target.Value)
Case "project audit": Wie1 = True
Case "process audit": Wie2 = True
Case "sustainability audit": Wie3 = True
Case "project / process audit": Wie1 = True: Wie2 = True
Case "project / sustainability audit": Wie2 = True: Wie3 = True
Case "project / process / sustainability audit": Wie1 = True: Wie2 = True: Wie3 = True
Case Else
End Select
Sheets(Array("Disclaimer Project Audit", _
"Project Audit", _
"Findings Project", _
"GST Comments on Project Audit")).Visible = Wie1
Sheets(Array("Disclaimer Process Audit", _
"Process Audit", _
"Findings Process", _
"GST Comments on Process Audit")).Visible = Wie2
Sheets(Array("Disclaimer Sustainability Audit", _
"Sustainability Audit", _
"Findings Sustainability", _
"GST Comments on Sust. Audit")).Visible = Wie3
End If
End Sub