Excel VisualBasic Script

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