カレントディレクトリの変更です。シンプルですね。 Public Function chCurDir() As Boolean ChDrive Application.ThisWorkbook.Path ChDir Application.ThisWorkbook.Path chCurDir = True End Function

Intersect(range1,[range2,range3,...]) で引数部分の共通Rangeを取得できます。UsedRangeやCurrentRegionなどと使えば、処理性能が向上しそうですね。要はRangeの積集合を取るわけですが、和集合の場合はUnionで取得できます。差集合は…ないっぽい。

使いたいならMicrosoft XMLを使えばいいっぽいよ