Sub ActivateWorkbook2() Dim stPath As String Dim myFileName As String Dim stFullName As String Dim myWorkbook As workBook myFileName = "SalesData1.xls" stPath = ThisWorkbook.Path stFullName = stPath & "\" & myFileName Set myWorkbook = Workbooks.Open(Filename:=stFullName) End Sub