fWhat = What you want to find
with sheets("Sheetname").columns(1)'change as required
set fCell = .find(fWhat, lookin:=xlvalues, lookat:=xlwhole)
if not fCell is nothing then
With fCell.offset(1,0)
TheCellValue = .Value
TheCellInteriorColorIndex = .Interior.ColorIndex
' .. etc.
' like adding 1 to the cell value (assuming it's numeric)
.Value = .Value + 1
End With
else
msgbox "Data Not Found"
end if
end with