Solved: Change Date Format VBA

[BENSON]

The following code paste,s the current date into a cell:

[VBA]
Set WsTgt = Workbooks("Gardens History.xls").Sheets(1)
With WsTgt.Range("A" & NextEmptyRow(WsTgt))
.Value = Date
[/VBA]

The pasted cell shows to day for instance as being (quite correctly ) 2007/11/22

Is it possible to change the code so the pasted cell shows

THURS 22 NOV 07

THANKS FOR ANY HELP

[JimmyTheHand]

Try both numberformat options, maybe one of them will be OK.

[vba]Set WsTgt = Workbooks("Gardens History.xls").Sheets(1)
With WsTgt.Range("A" & NextEmptyRow(WsTgt))
.Value = Date
.NumberFormat = "dddd dd mmm yy"
.NumberFormat = "ddd dd mmm yy"[/vba]

Jimmy

[BENSON]

BOTH WORKED THANK YOU