Hi Bruce,

>then user can do whatever they want, almost certainly save it...
>
>Any better ideas?

What about:

_VFP.DataToClip(,,3)
oExcel = Create("Excel.Application")
oExcel.Workbooks.Add()
oRange = oExcel.Range("A1",Chr(65+FCount()-1)+Alltrim(Str(RecCount())))
oRange.PasteSpecial()
oExcel.Visible = .T.

Christof