VBA Range / Cell Address

In this Article

This will display the cell address using the Range object:

1	MsgBox Range("A1").Address

This will display the cell address using the Cells object:

1	MsgBox Cells(1,1).Address

To get the ActiveCell address use this code:

1	MsgBox ActiveCell.Address

You can also assign the cell address to a string variable:

Dim strAddress

strAddress = Range("A1").Address

MsgBox strAddress

This code will extract the row number from an address:

Sub GetRowNumberFromCellAddress()

Dim strAddress As String

Dim rownum As Long

strAddress = Range("A1:a10").Address

rownum = Range(strAddress).Row

MsgBox rownum

End Sub

However, usually you can use this much simpler code:

1	MsgBox Range("A1").Row