Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get work book from same directory

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