I found the answer in something I wrote earlier:
Dim HldDte as variant
Range("A67").Select
HldDte = ActiveCell.Value
Range("A1").Select
ActiveCell.Select
ActiveCell.Value = HldDte

"Rick" wrote:


I have a problem, I haven't got the fogest clue as to how to get the cell
value 2 rows down, when scrolling rows. I need row-3 & row 36 to be shown in
row-1,col-1 Example:
row-1 col-1 date format
row-2 col-1 "date"
'----------------------------------------------
row-3 col-1 date=1/1/2009
row-4--row to row-33 (1/2/2009-1/31/2009)

row-36 col1 date=2/1/2009