TRIED but got "type mismatch"
message for the following....
If Join(Application.Transpose(Application.Transpose(. Cells(r, 1).EntireRow.Value)), "") = _ Join(Application.Transpose(Application.Transpose(. Cells(r - 1, 1).EntireRow.Value)), "") Then

I think I will just use the delete duplicates feature in excel and forsake the dupesheet feature. Thanks again for all your help.