lcSheet = GetObject('','excel.sheet') xlApp = lcSheet.application XLApp.Visible = .t. XLApp.WorkBooks.Add() xlSheet = xlApp.ActiveSheet oRange = xlSheet.Range('A10:R10') WITH oRange .Columns[6].Formula = '=ALS(C' + lcTeller + '=1;$B$5;ALS(C' + lcteller + '=2;$B$6;$B$7))' ENDWITH('als' = dutch for iif msoffice is dutch)