Very Difficult & Detailed Macro to find Duplicates

I am attempting to run your custom macro, but I am getting a run time error 448 "named argument not found" When I hit debug it highlights this part of your code.
Set rFound = wS.Columns("c").Find(What:=Rng.Value, _
After:=rFrom, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

I testing it on the sample sheet I gave you. I only selected one cell "C9". If I select a cell not in "C" and run macro. I get a message that says process finished.
I have no doubt that this macro is going to be a life saver, once these tiny bugs are out. I thank you very much.
Erock24.