vba Spalten ausblenden

Hallo liebe Exel-Gemeinde
Habe wieder einmal ein Problem, bei dem ich nicht weiter komme.
Habe 5 Spalten,EE,EF,EG,EH,EI, die ich bei Wert 0 in der 2. Zeile der jeweiligen Spalte ausblenden möchte, bei allen anderen Werten sollen diese wieder eingeblendet werde. Für die Spalte EE habe ich das mit unten sthendem Makro geschafft.
Um Eure Hilfe wäre ich sehr dankbar.
Gruss Rudolf

Private Sub Worksheet_Change(ByVal Target As Range)
'Spalte EE2 ein-ausblenden
ActiveSheet.Unprotect
If Target = Range("EE2") Then
If Range("EE2").Value = 0 Then
Columns("EE:EE").Hidden = True  '--Spalte ausblenden
Else
Columns("EE:EE").Hidden = False   '--Spalte einblenden
End If
Call Filter_aus
End If
ActiveSheet.Protect
End Sub