Sub filePath() Dim filePath As String filePath = ActiveWorkbook.Path Workbooks.Open (filePath & "\" & "MyWorkbook.xls") End Sub