Procedure PasteToRange(cCRS,cRange,lOverwrite) *-- dn 11/08/04 ...[some parameter checking here] c=_Cliptext _vfp.DataToClip(,,3) * remove first line from clipboard, contains column names *[2005/07/14 17:47:45] dragan - need memowidth wide enough N=Set("Memowidth") Set Memowidth To 1023 _Cliptext=Strtran(_Cliptext, Mline(_Cliptext,1)+hCR,"") Set Memowidth To N *-- insert blank lines in worksheet oXls= This.oApp oRng1 = oXls.Range(cRange) nRows= Reccount(cCRS) If Reccount(cCRS) > 1 And !lOverwrite oXls.Application.CutCopyMode = .T. oRng = oXls.Range(oXls.Cells(oRng1.Row + 1, 1),; oXls.Cells(oRng1.Row + nRows - 1, 1)) oRng.EntireRow.Insert oRng = Null Endif ... *-- copy records from clipboard to worksheet.range oRng1.Select() oXls.Selection.PasteSpecial() && here it happens, sometimes. *-- restore original clipboard _Cliptext=c ...