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
Dim objCell2 As Range
For Each objCell In probjRange
If Not objCell.Value = vbNullString Then Exit For
Next
For Each objCell2 In probjRange.Worksheet.Range("I10:K129")
If Not objCell2.Value = vbNullString Then Exit For
Next
If objCell2 Is Nothing Then
Columns("A:L").EntireColumn.Hidden = False
Columns("M:EG").EntireColumn.Hidden = True
Else
Columns("A:P").EntireColumn.Hidden = False
Columns("Q:CG").EntireColumn.Hidden = True
Columns("CH:EI").EntireColumn.Hidden = False
End If
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