maximalen Wert in Spalte suchen

Sub MaximalWertAktivieren()
Dim Bereich As Range
Set Bereich = Range("A:A")
Bereich.Find(Application.Max(Bereich)).Select
End 

Sub
In Spalte A:A funktioniert das Makro tadellos. Ich benötige das Makro
jedoch für die Spalte G:G. Wenn ich nun A:A in G:G ändere funktioniert
das Makro nicht mehr. Es kommt die Fehlermeldung "Objektvariable oder
With-Blockvariable nicht festgelegt.
Da ich mich mit VBA nicht so auskenne bitte ich hier im Forum um Hilfe.
Wie muß das Makro deklariert werden, damit es auch in G:G funktioniert?
mfg Ulrich