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