Assign current cell to a variable and re-select

I can't believe I don't know how to do this! I must be having a mental block!

I want to assign the active cell reference to a variable, then when my macro finishes, the variable's reference is made the active cell again.

For example, if F2 is my current cell, I want the variable CurCell to store the reference F2. When my macro finishes, I want the active cell to be the CurCell reference.

This code doesn't work, but this is what I'm trying to do:

Dim CurCell as Range

ActiveCell.Select
CurCell = ActiveCell.Range("A1")

....some code
....
....

Range(CurCell).Select

I can't think - what am I doing wrong?

Thanks!

Originally Posted by Cumberland

I can't believe I don't know how to do this! I must be having a mental block!

I want to assign the active cell reference to a variable, then when my macro finishes, the variable's reference is made the active cell again.

For example, if F2 is my current cell, I want the variable CurCell to store the reference F2. When my macro finishes, I want the active cell to be the CurCell reference.

This code doesn't work, but this is what I'm trying to do:

Dim CurCell as Range

ActiveCell.Select
CurCell = ActiveCell.Range("A1")

....some code
....
....

Range(CurCell).Select

I can't think - what am I doing wrong?

Thanks!

try

Dim CurCell As Range
Set CurCell = ActiveCell
 .. your code here
Application.Goto CurCell

Thanks - that would seem to do the trick!

I also found a workaround by using Row and Column with Cells:

CurRow = ActiveCell.Row
CurColumn = ActiveCell.Column

...code...
...code...

Cells(CurRow, CurColumn).Activate

Good to see, and thanks for the response

Originally Posted by Cumberland

Thanks - that would seem to do the trick!

I also found a workaround by using Row and Column with Cells:

CurRow = ActiveCell.Row
CurColumn = ActiveCell.Column

...code...
...code...

Cells(CurRow, CurColumn).Activate

Thanx Guys,
I was looking for a way to do this