WITH oSheet.Range(oSheet.Cells(lnRow-1, lnCol), oSheet.Cells(lnRow, lnCol+7)).Font .Name = "Times New Roman" .Size = 14 .Bold = .T. ENDWITH