Application or Object defined error

Thank you very much Leith Ross,
Sorry to disturb you again. I changed the below lines in the code:

Code:

Set Found = PartRngWorkbook1DRAMSheeta.Find(cs.Value)
            If Found Is Nothing Then GoTo NextCell Else Cell1 = Found.Row
       
 Set  Found = PartRngWorkbook1DRAMSheetb.Find("WS Group Totals:", Range("B", Cell1))
            If Found Is Nothing Then GoTo NextCell Else Cell2 = Found.Row

Now it is breaking at the line:
If Found is Nothing then GoTo NextCell Else Cell2=Found.Row

It is throwing up the error 'Application or Object defined error"...