iAddress = ActiveCell.Address
MsgBox iAddress
Для того чтобы убрать значение абсолютной ссылки $A$1 на строку и столбец нужно :
iAddress = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
iAddress = ActiveCell.Address
MsgBox iAddress
Для того чтобы убрать значение абсолютной ссылки $A$1 на строку и столбец нужно :
iAddress = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)