Date format

[justdriving]

In Column 2,

If cell contains a date, then
I wanted to change the date format to dd-mmm-yyyy
from second row to end of row
using for ... next loop.




' How can I do it in VBA?

[justdriving]

I have tried this and it worked...

Please advice, if there is a better method.

:think:

[Bob Phillips]

Sub test()
Dim endrowofcol2 As Long

With ThisWorkbook.Sheets(1)

endrowofcol2 = .Cells(Rows.Count, 2).End(xlUp).Row
With .Range("B1").Resize(endrowofcol2)

.NumberFormat = "dd-mmm-yyyy"
End With
End With
End Sub