When I try to set a cell in another workbook I get the error Application-defined or object-defined error. Any ideas?

   Do Until IsEmpty(Workbooks("" & mybook & "").Sheets("QUOTE").Range("A" & lngMyRow))
     
Set FSetup = Workbooks("" & mybook & "").Sheets("QUOTE").Range("MinutesSetup").Cells(lngMyRow, 1)

   If FSetup = "" Then GoTo LEND
        
   If FSetup.HasFormula Then
        GoTo LEND
   Else
   Workbooks("" & mybook & "").Sheets("QUOTE").Range("AD").Cells(lngMyRow, 1).copy
   Workbooks("" & anotherbook & "").Sheets("QUOTE").Range("MinutesSetup").Cells(lngMyRow, 1).PasteSpecial (xlPasteValues)
   End If
           
LEND:
        
    lngMyRow = lngMyRow + 1
 Loop