Iterate for a Solution with an Excel Macro