Sub ActivateWorkbook1() Dim stFullName As String Dim myWorkbook As Workbook stFullName = "c:\SalesData1.xls" Set myWorkbook = Workbooks.Open(Filename:=stFullName)End Sub