Hi Rick

Copy the following, then right click on Worksheet Tab, Select View code
and Paste into the white pane.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row 2 Then Exit Sub
If Target.Column 1 Then Exit Sub

If Not Intersect(Me.Range("A:A"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "A")
.Value = Format(.Value, "dddd" & vbLf & "d mmmm yyyy")
End With
Application.EnableEvents = True
End If
End With
End Sub

This assumes that you want all entries in Column A to be adjusted.
If you want a different column, change "A"'s to the column Letter
required, change Target.Column number to and the column number for
the entry.
Target.row is set to ignore row 1, assuming this is your header, change
as appropriate.


--
Regards

Roger Govier


"Max" wrote in message
...
You're welcome !

As mentioned in the response,
do hang around awhile for views from others.

There just might be a way to do it directly (perhaps via vba ?)
that others may step-in to offer you.
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--
"Big Rick" wrote in message
...
Many thanks.
This is a lot further than I would of got.
I would still like a solution if possible for the way described, as I
would
like to use it in other items, but your formula does work on this
occasion.

I am forever grateful and in your debt.
--
Big Rick