いきなりですが解決できました。原因は Set xlApp = Nothing Set xlBook = Nothing Set xlSheet = Nothingの並び順でした。現状はエクセルのファイル名称とシート名の両方を検索掛けてファイルオープンできるようになりました。ありがとうございました。