I'm not sure about this but try it. I think your problem
is the the format you want is not available. to make it
available goto editcellscustom. In the type box enter
HH:mm. now the format is available.

-----Original Message-----
I have a problem where I am copying data from one
worksheet to another and I
am also changing the time format from HH:mm to HHmm. To
do this I am using
this code.

Worksheets("Sheet2").Cells(PasteRow, 16) = Format
(DepTime, "HH" & "mm")

The problem is that the hour figure does not show the
leading zero even
though I have requested it, HH rather than H. The
leading zero is a
requirement. To complicate matters I would only want to
format the cell to
display leading zeros as a last resort. Any ideas would
be most appreciated
.