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