Remember (w/variables) the Active Cell, how to?

[TTom]

I need to rember an active cell so I can get to it later.
Below is a test marco that needs some help. Thanks,
TTom
****
Sub RememberActive()
Dim r As Integer, c As Integer

Sheets("MySheet").Activate
Range("B4").Select

'Since "B4" is the active cell record the it's row and column
'as r and c. thus r=4 and c=2. This will be used later to
'return to via: Cells(r,c).Select I will know the sheet name.

End Sub
****

 

[HalfAce]

Hi TTom,
If I understand...try:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> RememberActive()
<SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, c <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
Sheets("MySheet").Activate
Range("B4").Select
r = ActiveCell.Row
c = ActiveCell.Column
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Sometimes it's the simple stuff that plum evades us. (At least me anyway! )

Hope it helps,
Dan

 

[TTom]

Dan's the Man!
Right, sometime brain fog clouds the obvious...
Thanks, Tom

 

[just_jon]

Can also --

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> foo()
<SPAN style="color:#00007F">Dim</SPAN> ActAdr
ActAdr = ActiveCell.Address
[x5].Select
MsgBox ActAdr
Range(ActAdr).Select
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>