Date Format Issue

[Mikeice]

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

[jindon]

Hi,
try

Please Login or Register  to view this content.

[James W.]

change .Offset(0, -2).Value = Format(Date, "dd/mm/yyyy")
to

"Mikeice" wrote:

>
> 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=376154
>
>