Deleting Duplicates

[Sharid]

I am using this to delete duplicates from column B, it work well. only has one problem. Some of the cells have a hyphen in them. I need the code to disregard these and NOT delete them as a duplicate. Therefore any Cells in Sheet3 Column B that have a hyphen are Not to be regarded as duplicates and therefore they are not deleted.

'''delete duplicates in Sheet3 column B
Dim Cl As Range, Rng As Range
   With CreateObject("scripting.dictionary")
      For Each Cl In Sheets("Sheet3").Range("B2", Sheets("Sheet3").Range("B" & Rows.Count).End(xlUp))
         If Cl <> "" Then
            If Not .Exists(Cl.Value) Then
               .Add Cl.Value, Nothing
            Else
               If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
            End If
         End If
      Next Cl
   End With
   If Not Rng Is Nothing Then Rng.EntireRow.Delete

 

[Fluff]

How about

         If Cl <> "" And InStr(1, Cl.Value, "-") = 0 Then

 

[Sharid]

Cheers Fluff, Super Work

 

[Fluff]

You're welcome & thanks for the feedback.