modifica così
codice:
Set c = .Find(valore, LookIn:=xlValues)