I just need to set the value of a variable to the "A1" address of the
active cell. I feel like I've tried everything, but shouldn't this
work....

Dim rng as Range

Set rng = activecell [results in active cell's
value]
Set rng = activecell.address [throws error]

Thanks all,
Shelton.

Hi,


Dim rngAddr As String
Dim rng As Range

Set rng = ActiveCell

rngAddr = rng.Address 'returns $A$1
rngAddr = rng.Address(0, 0) 'returns A1
rngAddr = rng.Address(0, 1) 'returns $A1
rngAddr = rng.Address(1, 0) 'returns A$1

'Use address like this

Range (rngAddr)

--
Regards,

OssieMac


"shelfish" wrote:

I just need to set the value of a variable to the "A1" address of the
active cell. I feel like I've tried everything, but shouldn't this
work....

Dim rng as Range

Set rng = activecell [results in active cell's
value]
Set rng = activecell.address [throws error]

Thanks all,
Shelton.

On Nov 20, 9:07 pm, OssieMac
wrote:
Hi,

Dim rngAddr As String
Dim rng As Range

Set rng = ActiveCell

rngAddr = rng.Address 'returns $A$1
rngAddr = rng.Address(0, 0) 'returns A1
rngAddr = rng.Address(0, 1) 'returns $A1
rngAddr = rng.Address(1, 0) 'returns A$1

'Use address like this

Range (rngAddr)

--
Regards,

OssieMac

"shelfish" wrote:
I just need to set the value of a variable to the "A1" address of the
active cell. I feel like I've tried everything, but shouldn't this
work....

Dim rng as Range

Set rng = activecell [results in active cell's
value]
Set rng = activecell.address [throws error]

Thanks all,
Shelton.

Brilliant! Thanks for the help.

rng = ActiveCell gives value
rng = ActiveCell.Address gives cell reference in A1 format
Set rng = ActiveCell is used to set the active cell as an object variable
range
then you cans do: x = rng.address to get a cell string in A1 format.

I get screwed around on these also. The best way to do it is to use a Range
or Cells reference if you can. If you have to have a variable, then don't
forget that it is a cell reference and you will need to use it like
Range(rng) when setting a range reference.

"shelfish" wrote:

I just need to set the value of a variable to the "A1" address of the
active cell. I feel like I've tried everything, but shouldn't this
work....

Dim rng as Range

Set rng = activecell [results in active cell's
value]
Set rng = activecell.address [throws error]

Thanks all,
Shelton.

dim myAddr as string
myAddr = activecell.address(0,0)



shelfish wrote:

I just need to set the value of a variable to the "A1" address of the
active cell. I feel like I've tried everything, but shouldn't this
work....

Dim rng as Range

Set rng = activecell [results in active cell's
value]
Set rng = activecell.address [throws error]

Thanks all,
Shelton.

--

Dave Peterson

Very nice that you did this in one step. I knew it couldn't be a two-
step process. Thanks.