This example activates Futura with OptQuest.xls, resets any previously run simulation, and opens the Freeze dialog.
Workbooks("Futura with OptQuest.xls").Worksheets("Model").Activate CB.ResetND CB.Freeze