Probleme beim ausblenden von sehr vielen Spalten

Sub a()
aktuelle_Programm_Spalte = interger
aktuelle_Programm_Spalte = 19
If aktuelle_Programm_Spalte = 18 Then
Range(Columns(20), Columns(256)).Hidden = True
Else
Range(Columns(18), Columns(aktuelle_Programm_Spalte - 1)).Hidden = True
'Range(Columns(aktuelle_Programm_Spalte + 2), Columns(256)).Hidden = True
Range(Columns(19), Columns(100)).Hidden = True
Range(Columns(100), Columns(150)).Hidden = True
End If
End Sub