Macro and Formula works in Office 2010 but not in 2003

[data808]

I have this macro running:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A:D"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Range("J" & Target.Row)
If Not IsDate(.Value) Then
ActiveSheet.Unprotect Password:="judiciary"
.NumberFormat = "mmm dd yyyy"
.Value = Date
ActiveSheet.Protect Password:="judiciary"
'DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End With
Application.EnableEvents = True
End If
End With
End Sub



and I have this formula:

=IF(LEN(H6)>0,H6-E6,0)



I have no problems when I'm using Office 2010. However, when I am using Office 2003 I found out that when I enter numbers into columns A or B then it just freezes up the spreadsheet. If I enter text then its no problem but column A and B requires that I enter numbers in these cells.

The formula is used for determining how much change I give back to the customer. When I enter the amount that was given by the customer into the cell it just freezes up as well.

Can anyone tell me why this is happening and if there is a fix?

Thanks for your help.