Duplicate Detection with Message Box
 

Hi All

Please help me with the following:

I have written the following code to detect the duplicates in Sheet1 by
checking column3,7&9.

I would like to display a message box which would say no of DUPLICATES
DELETED & no of Unique record in the current sheet. However iam stuck and not
able to do the same.

Please help me.

Code used to delete the duplicates:
__________________________________________________ __________________
Public Sub DeleteDuplicateRows()
Cells.Select
ActiveSheet.Range("$A$1:$W$21").RemoveDuplicates Columns:=Array(3, 7,
9), _
Header:=xlYes
End Sub

__________________________________________________ ________________

Thanks in advance for your help.

Regards,
Uma Nandan