Spaltenzahl in Makro

Sub autom_Zielwertsuche()
' autom_Zielwertsuche Makro
' Makro am 15.05.2009 von  aufgezeichnet
Dim Zelle As Range
For Each Zelle In Range(Cells(2, 2), Cells(2, 2).End(xlDown))
If Zelle.HasFormula Then
Zelle.GoalSeek Goal:=Zelle.Offset(0, -1).Value, ChangingCell:=Zelle.Offset(0, 1)
End If
Next
End Sub

Ich würde es gerne wiefolgt modifizieren:
Ich möchte als Bezug für die Spalten, in denen Formel und Wert stehen, z.B. Cells(2, 36) nicht "36", sondern lieber "AJ" für den Spaltenbezug eingeben! Ist dies möglich und wie wäre in diesem Fall die genaue Schreibweise?
Danke schön für eure Hilfe!
Grüße,
Nico