This example activates the Model worksheet of the Futura with OptQuest.xls workbook and selects all the assumptions in the worksheet.
Workbooks("Futura with OptQuest.xls").Worksheets("Model").Activate CB.SelectAssum