RemoveDuplicates not removing all duplicate entries
I can't see what is failing in this macro to remove all duplicates.
I always end up with one duplicate left over?
All help is appreciated.
'======
Sub RemoveDups()
ActiveSheet.Unprotect "2000"
Application.ScreenUpdating = False
Dim Sh3LastRow
Dim Sh3LastCol
With Sheets("Order Specs")
Sh3LastRow = .Cells(Rows.Count, "A").End(xlUp).row
Sh3LastCol = Range("A2").Cells(1, .Columns.Count).End(xlToLeft).Column
End With
ActiveSheet.Range("A2:K" & Sh3LastRow).RemoveDuplicates
Columns:=Array(1, 2), Header:=xlYes
Range("A2").Activate
'ActiveSheet.Protect "2000"
Application.ScreenUpdating = True
End Sub
'======
--
Regards
VBA.Newb.Confused
XP Pro
Office 2007
|