Option
Explicit
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
objRange
As
Range
Set
objRange = Range(
"F11:G18"
)
If
Not
Intersect(Target, objRange)
Is
Nothing
Then
_
Call
ANITA(probjRange:=objRange)
Set
objRange =
Nothing
End
Sub
Private
Sub
ANITA(
ByRef
probjRange
As
Range)
Dim
objCell
As
Range
For
Each
objCell
In
probjRange
If
Not
objCell.Value = vbNullString
Then
Exit
For
Next
If
Not
objCell
Is
Nothing
Then
Columns(
"A:L"
).EntireColumn.Hidden =
False
Columns(
"M:EG"
).EntireColumn.Hidden =
True
Columns(
"CH:EI"
).EntireColumn.Hidden =
False
ActiveWindow.FreezePanes =
False
Range(
"D10"
).
Select
ActiveWindow.FreezePanes =
True
Range(
"A10"
).
Select
Set
objCell =
Nothing
Else
Columns(
"A:H"
).EntireColumn.Hidden =
False
Columns(
"I:EG"
).EntireColumn.Hidden =
True
Columns(
"CH:EI"
).EntireColumn.Hidden =
False
End
If
End
Sub