At first I did try to run it from a button, but no matter how I try to run it I still get the same error and when I hit debug It highlights in yellow the following:

Set rFound = wS.Columns("c").Find(What:=Rng.Value, _
After:=rFrom, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Is is something I'm doing wrong? I pasted the code by hit alt f11, insert module, and pasted it right in there. Then I close vb and select some cells in "c" to test, and run macro.