HI All

I have the following code that enters the date when a cell is filled.

IT works perfectly thx to this forums help - thx all.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("D11:D100")) Is Nothing Then
With Target
..Offset(0, -1).Value = Format(Time, "hh:mm:ss")
..Offset(0, -2).Value = Format(Date, "dd/mm/yyyy")
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub


My problem is since it changed to June yesterday the date is displaying
in US date format.

I have the cells formated as d/mm/yyyy on the worksheet but is still is
displaying todays date as 06/3/2005 how can I force it to display
British / Australian format
3/06/2005.

look forward to your reply


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=376155

Sorry Guys I have posted this twice in error :

--
Mikeic
-----------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...fo&userid=2246
View this thread: http://www.excelforum.com/showthread.php?threadid=37615