Mike!
Set FoundCell = Worksheets(shOther).Range("F:F").Find(What:="Result", LookAt:=xlWhole)
I could not see where the word "result" comes from. Was meant to be "c"?