VBA code to return Cell address

Hi,

Perhaps

Dim l As Long, r As Range
    l = WorksheetFunction.Max(Range("A1:A100"))
    Set r = Range("A1:A100").Find(l)
    Debug.Print r.Address