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