Result Error After Modifying Code

The following codes work well but when I have changed the following condtion ,


If cel = Tgt.Range("A2") Then
to


If cel "" Then

I got worng result, can anybody help me to correct it?




Option Explicit
Sub test()
Dim sh As Worksheet, Tgt As Worksheet, i As Long, j As Long
Dim d, a
Dim c As Range, Rng As Range, cel As Range

Set Tgt = Sheets("Report")
Set d = CreateObject("Scripting.Dictionary")
j = 0
On Error Resume Next ...............