Hello,
I have the code below:

ActiveCell.Offset(28, 0) = CS.Cells(i, 23)

Question: how can I move the formatting at the same time. When the CS.Cells
is a date, it gets set to the general format.

Thanks,

Bill

try
=format(cs.cells(i,23),"mm/dd/yy")
or
with ActiveCell.Offset(28, 0)
..value = CS.Cells(i, 23)
..numberformat= desired format
end with
--
Don Guillett
SalesAid Software

"Bill" wrote in message
ink.net...
Hello,
I have the code below:

ActiveCell.Offset(28, 0) = CS.Cells(i, 23)

Question: how can I move the formatting at the same time. When the
CS.Cells is a date, it gets set to the general format.

Thanks,

Bill

Bill,
Use copy:

CS.Cells(i, 23).copy ActiveCell.Offset(28, 0)

"Bill" wrote:

Hello,
I have the code below:

ActiveCell.Offset(28, 0) = CS.Cells(i, 23)

Question: how can I move the formatting at the same time. When the CS.Cells
is a date, it gets set to the general format.

Thanks,

Bill