Problema con macro de Excel

[Monimo]

dim cellfinds as range



buscamos el id que queremos
Workbooks(totallibro).Activate
Sheets("CAPACITACION").Select

set cellfinds =[A:A].Find(What:=id, LookIn:=xlValues, LookAt:= _
xlPart).Activate
if not cellfinds is nothing then

'y ya q haga lo que sigue
end if


se tiene q hacer cada q busque, o sea cada que utilices el "Find" porque si no lo encuenta no habrá celda activa e irás arrastrando una variable "not set" o sea vacía...