Dim Writeme As Range

Set Writeme = Worksheets("Imp").Range(ActiveCell.Address)
Writeme.Activate
MsgBox (Writeme.Address)
Set Writeme = Writeme.Offset(1, 0)
Writeme.Select
MsgBox (Writeme.Address)

this works for me
:)
susan



On Aug 11, 12:56*pm, Hydra wrote:
* * * * *Dim Writeme as Range * * * *

* * * * Set WriteMe = Worksheets("Imp").Range(ActiveCell.Address) * * *
* * * * Writeme.Activate
* * * * MsgBox (WriteMe.Address)
* * * * Set WriteMe = WriteMe.Range(ActiveCell.Offset(1, 0).Address)
* * * * WriteMe.Select
* * * * MsgBox (WriteMe.Address)

The first message box reports $D$1

The second message box reports $G$1)

What I want is $D$2.

Which I can get with

Set WriteMe = WriteMe.Range(ActiveCell.Offset(1, -3).Address)
But that isn't very satisfactory

What am I doing wrong here?
How can I increment a range adress?
How can I increment a range adress on a worksheet that is not active?