VBA 运行时错误 ‘13’ 类型不匹配

Question

下文是源代码，运行时报错误13 ，求指导，谢谢。
百度了一圈也没有解决。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
If Target.Column = 4 Then
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 4) = Target.Value Then \该行报错
MsgBox "第" & i & "行和" & "数据 【" & Target.Value & "】重复！"
End If
Next i
End If

If Target.Column = 5 Then
    For j = 2 To ActiveSheet.UsedRange.Rows.Count
            If Cells(j, 5) = Target.Value Then    \\该行报错
                MsgBox "第" & j & "行和" & "数据 【" & Target.Value & "】重复！"
            End If
    Next j
End If
    

End Sub