Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
Range("B8").Value = ""
Range("B8").Select
End If
If Not Intersect(Target, Range("B8")) Is Nothing Then
Range("B9").Select
Sheets(4).Columns("E:O").ColumnWidth = 8.25
With Sheets(4).Range("E3:O3")
Dim col, c, d
c = Sheets(1).Range("B8").Value
d = Sheets(1).Range("B7").Value
For col = 5 To 15
If c = Sheets(4).Cells(3, col).Value Then
Sheets(5).Range("Q1").Value = Sheets(4).Cells(1, col).MergeArea.Value
If d = Sheets(5).Range("Q1").Value Then
Sheets(4).Columns("E:O").Hidden = True
Sheets(4).Cells(3, col).ColumnWidth = 8.25
End If
End If
Next col
If Range("B8").Value = "" Then
Sheets(4).Columns("E:O").ColumnWidth = 8.25
End If
End With
End If
End Sub