relative addressing in code

Given a properly formatted date and code of CurMonth = Month([A400]) how can
I move the cell with date(A400) and have code follow change? I've tried many
things -- none work.

What am I missing?

Thanks,

Kim

Name the cell (Insert>Name>Define ...), and use that name

CurMonth = Month(Range("named_cell"))

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Kim" <[email protected]> wrote in message
news:[email protected]...
> Given a properly formatted date and code of CurMonth = Month([A400]) how
can
> I move the cell with date(A400) and have code follow change? I've tried
many
> things -- none work.
>
> What am I missing?
>
> Thanks,
>
> Kim
>
>