Can you use something like:
Dim N As Integer, Limit As Integer
Limit=(whatever)
For N=1 to Limit
If Range("A" & N).Value < 0 _
Then Format(Range("A" & N).Value,"YYYMMDD")
End For

-----Original Message-----
I need some code to:
I have a column (F) that contains dates and zeros. How
can I change the format to date (YYYYMMDD) and leave the
zeros as zeros and not get the 19000100 date?

0
6/7/2004
7/19/2004
0
0
0
0
0
1/31/2005
3/14/2005
9/13/2004
10/18/2004
1/31/2005
7/12/2004

.