Worksheet Change not working

[mthiatt10]

I have a workbook with 3 sheets that tracks orders. The first sheet has the ordered information. Once it is recieved I move that information to sheet2 delevired. Once the project the material was used for is complete it gets moved to sheet3 complete. I have a change event set up to move items from sheet1 to sheet2 when a delivered date is entered. The macro I have works but I am having issues with the change even triggering. It will trigger some times and other times it wont. It will also trigger for entries in other columns than column I that stores the delivred date.

<CODE><CODE\>

sub Worksheet_Change(ByVal Target As Range)

If IsEmpty(Target) Then Exit Sub

If Target.Address = "I3" Then

If IsDate(Target) Then
'Stop any possible runtime errors and halting code
On Error Resume Next
'
Application.EnableEvents = False
Target.Select
Run "macro1"
'Turn events back on
Application.EnableEvents = True
'Allow run time errors again
On Error GoTo 0

End If
End If

End Sub

</CODE>

Sub macro1()
Application.ScreenUpdating = False
   
    ActiveCell.EntireRow.Cut
    Sheet2.Activate
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheet1.Activate
    'Deletes the entire row within the selection if _
On Error Resume Next
Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
   
Application.ScreenUpdating = True
End Sub

<CODE></CODE></CODE>

 

[mikerickson]

As far as I can tell
Target.Address = "I3" Then
will always fail, since the (no arguments) .Address returns absolute addressing.