FOR each ocell in oSheet.UsedRange.cells IF ocell.HasFormula * There's a formula in the current cell ... ENDIF ENDFOR