Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Target.Address =
"$C$4"
Then
Application.EnableEvents =
False
Rows(
"26:89"
).Hidden =
False
Select
Case
Target.Value
Case
"a"
Rows(
"44:89"
).Hidden =
True
Case
"b"
Rows(
"26:43"
).Hidden =
True
Case
"c"
Rows(
"26:45"
).Hidden =
True
Case
"d"
Rows(
"26:51"
).Hidden =
True
Case
"e"
Rows(
"26:53"
).Hidden =
True
Rows(
"67:89"
).Hidden =
True
Case
"f"
Rows(
"26:66"
).Hidden =
True
Rows(
"76:89"
).Hidden =
True
Case
"G"
Rows(
"26:75"
).Hidden =
True
Rows(
"79:89"
).Hidden =
True
Case
"h"
Rows(
"26:78"
).Hidden =
True
Rows(
"82:89"
).Hidden =
True
Case
"i"
Rows(
"26:81"
).Hidden =
True
Rows(
"87:89"
).Hidden =
True
Case
"j"
Rows(
"26:86"
).Hidden =
True
Case
Else
End
Select
Application.EnableEvents =
True
End
If
End
Sub