Nehmen Sie an, Sie haben die Angabe Cells (36,19) = "test".
Wie lautet nun die Adresse in der A1-Schreibweise dieser Zelle ?
Mit Hilfe dieser kleinen Funktion können Sie es ermitteln:

Function Cells2Range(Zeile, Spalte)
    Spalte = Columns(Spalte).Address(False, False)
    Spalte = Left(Spalte, InStr(Spalte, ":") - 1)
    Cells2Range = Spalte & Zeile
End Function

Sub Testen()
    Adresse = Cells2Range(36, 19)
    MsgBox Adresse
End Sub