For the example you gave, this cell...
Worksheets("Sheet1").Cells(4, q + 1)
has nothing in it. I think the problem goes back to this statement...
Cells(4, 3) = 2009
In particular, the 3... your previous statements use 2 for the column. Was
the 3 a mistake? If you change it to 2, the code you posted appears to work
correctly.
As an unrelated aside, you should consider prefacing all the cell references
with your worksheet reference, not just some of them.
--
Rick (MVP - Excel)
exactly what i need.
thanks- Hide quoted text -
- Show quoted text -
actually not working.
code:
dim q
q=1
cells(2,2)=1
cells(3,2)=1
cells(4,3)=2009
Worksheets("Sheet1").Cells(5, q + 1) = Worksheets
("Sheet1").Cells(2, q + 1) & "/" & Worksheets("Sheet1").Cells(3, q +
1) & "/" & Worksheets("Sheet1").Cells(4, q + 1)
Worksheets("Sheet1").Cells(5, q + 1).NumberFormat = "m/d/
yy;@"
Worksheets("Sheet1").Cells(6, q + 1).Value = Worksheets
("Sheet1").Cells(5, q + 1).Text