cell date formatting 1

[JTBorton]

I am trying to format my cells with dates to dd-mmm. I tried the follwing code but VBA laughs, makes yo-momma jokes at me then moves to the next step without changing a thing.

(CellDate - a Date variable)

If IsDate(.Cells(V, 5)) Then
CellDate = .Cells(V, 5)
CellDate = Format(CellDate, "dd-mmm")
'.Cells(V, 5) = CellDate Didnt Work
'.Cells(V, 5) = Format(.Cells(V, 5), "dd-mmm") Didnt Work
.Cells(V, 5).NumberFormat = Date 'Doesnt Work Either
End If

 

[SkipVought]

Did you try formatting on the sheet with your macro recoder on?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

What about this ?
If IsDate(.Cells(V, 5)) Then
.Cells(V, 5).NumberFormat = "dd-mmm"
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[JTBorton]

PHV

Thats got it. Thanks