lstr = Mid(Range("AE1").Address(), 2) Ln = InStr(1, lstr, "$") MsgBox (Left(lstr, Ln - 1)) *displays AE