Yo get an aeeror on ActiveSheet.Paste because there is nothing to Paste!

HTH
--
AP

"Lost in Alabama" a écrit dans le
message de ...
I am trying to create a macro to delete the duplicate rows in a sheet
using
the Filter Unique Records Function. The following is the macro I have
tried.
I keep getting an error at "ActiveSheet.Paste".

The duplicate data will not always be in side-by-side rows, and I cannot
sort the data without loosing the original order of the data.

Cells.Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Selection.ClearContents
ActiveSheet.Paste
Application.CommandBars("Task Pane").Visible = False
Range("A1").Select


I would really appreciate any suggestions.

Thanks,

Lost In Alabama