Excel 2003


I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

On Tue, 10 Jan 2006 07:28:02 -0800, Dennis
wrote:

Excel 2003


I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

From here it looks as if you are missing a "new line":

With Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
(2, 1)
.Value = Now()


end with
--ron

It sounds like you're looking at the formula view:

Tools|Options|View tab|Uncheck formulas

Dennis wrote:

Excel 2003

I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

--

Dave Peterson

Absolutely Correct!

Amazing how line written months ago can haunt.

Thanks Dave


"Dave Peterson" wrote:

It sounds like you're looking at the formula view:

Tools|Options|View tab|Uncheck formulas

Dennis wrote:

Excel 2003

I populate a cell with Now() (via the VBA line next)

With Sheets("Error Cells").Cells(Rows.count, 1).End(xlUp) _
(2, 1).Value = Now()

In the cell itself the display is: 38727.4101273148
even though the custom format assigned is: m/d/yyyy h:mm

Interestingly, the presentation in the Formula Bar is:
1/10/2006 9:50:35 AM which is exactly want I want in
the cell presentation; what am I doing wrong?

I have attempted to change the cell format to no avail.

Thanks

Dennis

--

Dave Peterson