Hide and unhide columns
Hi Frederick,
Try:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr As Variant
Dim rng As Range
Set rng = Range("B1, D1, F1, H1")
arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 1 Then
rng.EntireColumn.Hidden = _
IsError(Application.Match(Target.Value, arr, 0))
End If
End Sub
---
Regards,
Norman
"Frederic" wrote in message
...
I have the following statement. Instead of hiding and unhiding the range
"B:J", I want to hide and unhide Columns "B,D,f,H"
Please find below the statement I have used. Any advise would be very much
appreciated.
Private Sub CommandButton1_Click()
Macro2
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr As Variant
arr = Array("EO", "EC", "ES", "EV", "EF", "EG")
If Target.Cells.Count 1 Then Exit Sub
If Target.Column = 1 Then
Columns("B:J").EntireColumn.Hidden = _
IsError(Application.Match(Target.Value, arr, 0))
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("A:A"), Range("B:J"))) Is Nothing Then
Columns("B:J").EntireColumn.Hidden = True
End If
End Sub
|