Eperimente:Activecell.address

Boa tarde ti02,

Você quer saber o endereço da célula ativa? Um exemplo:

Dim Endereco    As String    
Endereco = ActiveCell.Address

att,

Show, e como faço pra atribuir essa range ao activeCell?

Por exemplo

range("A1").select
endereco = activeCell.address
activeCell.offset(1,0).select

como faria para atribuir ao activeCell novamente a range A1 usando a variavel endereco?

Você quer jogar o valor do 'Endereco' na célula ao lado?

ActiveCell.offset(1,0) = Endereco

quero que o activeCell volte para o endereço armazenado.
no caso acho que seria range(endereco).select, sim?

Sim,

    Range("A1").Select
    Endereco = ActiveCell.Address
    ActiveCell.Offset(1, 0).Select
    
'Seleciona a A1
    Range(Endereco).Select