I am using Office automation from VFP

* Put column headings in Row 5
.Range("B6").Value = "Deposit Reciept#"
.Range("C6").Value = "Description"
.Range("D6").Value = "Deposit Date"
.Range("E6").Value = "Check #"
.Range("F6").Value = "Debit"

oRange = .Range("B7:G7")
ENDWITH

* Loop through orders and send data
SCAN
WITH oRange
.Columns[1].Value = ALLTRIM(Deposit_number)
.Columns[2].Value = ALLTRIM(Released_to)
.Columns[3].Value = DTOC(Deposit_date)
.Columns[4].Value = Check_number
.Columns[5].Value = Debit

ENDWITH