2007的VBA 無法在2003 使用?

zero1019

請問各位~~
2007的VBA如下

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng As Range, RngA, CR As Boolean
Set Sht = Sheets("在途股利")
Set RngA = Cells(Target.Row, 1)
If Not Intersect(Target, [A:I]) Is Nothing And _
                            RngA <> "" And RngA(1, 6) <> "" Then
    For Each Rng In Range(Cells(Target.Row, 1), Cells(Rows.Count, 1).End(3))
        CR = IsNumeric(Evaluate("match(" & Rng.Address & "&" & Rng(, 2).Address & _
            ",在途股利!a:a&在途股利!b:b,0)"))
        If Not CR Then _
            Rng.Resize(, 9).Copy Sht.Range("A" & Rows.Count).End(3).Offset(1)
    Next
End If
Application.CutCopyMode = False
End Sub



在2003版本無法正常運作~~請問要如何修正@@
感謝各位~~

bobomi

沒問題呀 , 沒出錯