Попробуйте, не уверен, что это будет именно то, что вы хотите ...
Public Function GetCellAddress(ByVal objCell As Range) As String
GetCellAddress = Replace(objCell.Address(), "$", "")
End Function
Добавьте это в новый модуль в VBA. Если вы не знаете, как получить доступ к редактору VBA, это очень удобно.