Kolommen verbergen

[wieter]

Als je in J1 een naam kiest, worden de openstaande klachten, van die naam, geprint.
Kan in de code, de rode lijnen, samen gevoegd worden tot 1 regel?
Iets in de aard van:

.Columns("C:D,I").Hidden = True 'Dit werkt echter niet

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Columns.AutoFit
If Not Intersect(Target, Range("J1")) Is Nothing Then
    With Cells(1).CurrentRegion
        .AutoFilter Field:=3, Criteria1:="=" & Cells(1, 10).Value
        .AutoFilter Field:=9, Criteria1:=""
       [COLOR="#FF0000"] .Columns("C:D").Hidden = True
        .Columns("I").Hidden = True[/COLOR]
        .PrintPreview
        .Columns("C:D").Hidden = False
        .Columns("I").Hidden = False
        .AutoFilter
    End With
End If
Application.ScreenUpdating = True
End Sub

 

[HSV]

.range("C1:D1,I1").entirecolumn.Hidden = True

 

[wieter]

Bedankt Harry (weerom).
Grtn wieter