Adapting VBA from Word to work in Excel

You are trying to open a file named "Path & DirN" instead of using the variables Path and DirN to build a file name. Maybe try this change to that line of code:

                            
   Workbooks.Open Filename:=Path & "\" & DirN