On Tue, 11 Aug 2009 09:54:04 -0700 (PDT), jason
wrote:

ron,
thanks for taking the time.
i realize how trivial the question seems.
basically:

cells(1,1)=4/8/2009
cells(1,1).numberformat="m/d/yy;@"
cells(1,1) [DISPLAYS] 4/8/09
i want to extract JUST 4/8/09
not 4/8/2009

this is my issue.
i've tried .text and .value

not sure, but any help would be huge.
thanks

I'm probably still not understanding what it is you want to do, but your
example is simple enough.

If you want to extract the result as Excel has formatted it, merely use the
..text property.

e.g:

=========================
ption Explicit
Sub foo()
Dim s As String
With Cells(1, 1)
.Value = DateSerial(2009, 4, 8)
.NumberFormat = "m/d/yy;@"
End With
s = Cells(1, 1).Text
Debug.Print s
End Sub
==============================

The immediate window will show 4/8/09
--ron