Mega Code Archive
Opens a workbook named MyWorkbook xls located in the same directory as the active workbook An error is generated if the file cannot
Sub filePath()
Dim filePath As String
filePath = ActiveWorkbook.Path
Workbooks.Open (filePath & "\" & "MyWorkbook.xls")
End Sub