oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
	.Workbooks.Add(-4167)
	.Visible = .T.
	.ActiveCell.EntireRow.Cells(5, 1).Value = 5
	.Worksheets(1).Columns(6).Hidden = .T. 
	.Worksheets(1).Rows(6).Hidden = .T.
ENDWITH