help me!

[Rafael Alvares Tubero]

guys,

I cannot find out where is my mistake. could you help me, please?

jw = Range("D2:D16").Text

For i = ult_lin To 2 step -1
For j = 14 To 0 Step -1
If Range("F" & i).Text = jw(j).Text Then
Rows(i).Delete shift:=xlUp
End If
Next
Next

the red line is the line where it is wrong.

 

[Jonmo1]

Welcome to the board.


Try changing
jw = Range("D2:D16").Text
to
Set jw = Range("D2:D16")

 

[Rafael Alvares Tubero]

Superb!!!

Thanks a lot!!!