Option Explicit
 
Sub Spalte_E_ausblenden()
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
End Sub
 
Sub Spalte_E_einblenden()
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = False
End Sub

Gruß aus Mittelfranken
Heinz