oExcel = CREATEOBJECT([Excel.Application]) oExcel.WorkBooks.Add() oExcel.Visible = .t. oExcel.Cells(1,1).Value = [Field1] oExcel.Cells(1,2).Value = [Field2] oExcel.Cells(1,3).Value = [Field3] FOR lnRow = 2 TO 20 FOR lnCol = 1 TO 3 oExcel.Cells(lnRow, lnCol).Value = lnRow*lnCol NEXT NEXT oExcel.Selection.AutoFilter oExcel.Selection.AutoFilter(1,"20") && First field, all rows with 20 in them.