Delete duplicates in column A

[Sharid]

I am using this bit of code in my loop which deletes duplicates.

Sheet2.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

This works fine if there are duplicates, if there are no duplicates then it gives an error message.

I was not sure how to write it as a IF statement so, if there are no duplicates then do nothing, else delete duplicates.

 

[Joe4]

You can just ignore that error like this:

On Error Resume Next
Sheet2.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

 

[Fluff]

How about

On Error resume next
Sheet2.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error Goto 0

 

[Sharid]

Super, thanks Joe4

 

[Joe4]

You are welcome.
Glad we could help.