構文エラーのことは念頭にありませんでした。既に指摘済みだったので。
Workbooks.Open Filename:= "\\部門\部\"& shiten &支店".xls"
↓
Workbooks.Open Filename:= "\\部門\部\"& (shiten) & "支店.xlsx"
としたのではないか、
成功したのは、カッコの所為ではないでしょう、という指摘でした。
今後、変数を連結するとき、カッコが必要と誤認してはいけないと思いまして。
おかしかったかな。
ご指摘ありがとうございました。