Hide and unhide columns

[Frederic]

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

 

[Wolf]

Columns("B:B,D,F:F,H:H").EntireColumn.Hidden.......etc

(BTW: The macro recorder could have told you the same)

Wolf

 

[Norman Jones]

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