Spalten ausblenden

Sub Makro1()
Range("B9").Select
    Cells.Find(What:="20.12.2007", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
End Sub

Wenn ich nun das Makro starten will bleibt er in der Zeile die fett markiert ist hängen und verlangt Objektvariable oder With-Blockvariable.
Was muss ich noch einfügen.
Vielen Dank im Voraus!
MFG Andre