Якщо вам потрібно дізнатися адресу активної комірки, то ось кілька прикладів як це можна зробити:
Координати активної комірки за допомою ActiveCell.Address
Sub ActiveCellAddress()
MsgBox ActiveCell.Address
End Sub
Адреса активної комірки за допомогою ActiveCell.AddressLocal
Sub ActivecellAddressLocal()
MsgBox ActiveCell.AddressLocal
End Sub
Номер рядка активної комірки
Sub ActiveCellRow()
MsgBox ActiveCell.Row
End Sub
Номер стовпця активної комірки
Sub ActiveCellColumn()
MsgBox ActiveCell.Column
End Sub
Буква стовпця активної комірки
Sub ActiveCellColumnLetter()
MsgBox Split(ActiveCell.Address, "$")(1)
End Sub