【VBA】主に3処理について、コードが合っているか確認したいです

Question

以下を調べるツールを作成したいのですが、
コードは合っておりますでしょうか？

①指定したファイル名と同じファイル（＝これ以前でファイル名はFilename2,ファイルパスはFilepath2と変数定義済）が、ファイルパス（変数Filepath2 に定義したファイルパス）内に存在するかどうか調べる。

② 指定したファイル名（変数Filename2に定義したファイル名)と同じ名前のファイルが開かれているか確認する。

③それ以降、コード内のコメントに記載の処理を実行する。

Dim FSO As Object        
Set FSO = CreateObject("Scripting.FileSystemObject")        
Dim Filename        
Filename = FSO.GetFileName(Filepath)              'filenameと同名のエクセルブックを取得      
Dim workbookWithSameName As Workbook      
Set workbookWithSameName = getWorkbookByName(Filename)  

   '同名のエクセルブックを開いている時=Nothing「ではない」とき      
If Not workbookWithSameName Is Nothing 
Then 
If workbookWithSameName.FullName <> Filepath Then 'workbookWithSameName.FullName 

MsgBox "同名のエクセルブックを2つ以上開いているため、違うファイルパスのブックを閉じてください" 
Exit Sub        
End If              

 '同名のエクセルブックを開いている時=Nothingのとき⇒そのブックを処理対象とする       
If workbookWithSameName Is Nothing Then          
Set targetWorkbook = Workbooks.Open(Filepath)      
Else      
Set targetWorkbook = workbookWithSameName      
End If         

Answer 1

そもそも、同じ名前のファイルを開くことはできません。
エクセルの制限です。

チェックするなら、開く前に判定する必要があります。

Comments

[cherishlieben]

ご回答ありがとうございます。
今から開こうとしているファイルと同名のファイルが既に開かれているかを上に記載のコードで確認した後に
ファイルを開くコードを記載しております。

上記のコードで（特にgetWorkbookByName部分で）エラーとなっているようなのですが、
どう解決すべきかご教示いただくことはできますでしょうか？

[退会済みユーザー]

＞MsgBox "同名のエクセルブックを2つ以上開いているため
というのは釣りですか？

＞エラーとなっているようなのですが、
どんなエラー？

＞getWorkbookByName
中身の分からんものについてはコメントできません。

[cherishlieben]

＞エラーとなっているようなのですが、 どんなエラー？

SubまたはFunctionが定義されてません
というエラーポップアップが出て、
getWorkbookByNameに青くカーソルが当たります。
なのでgetWorkbookByNameをどこかで定義した方がよいなど、これに関連する部分で間違いがあるのかと思ったのですが、
初心者でして調べても分かりかねている状態です。
もしこのコード中で間違いがございましたら、ご教示いただけましたら幸いです。

[退会済みユーザー]

getWorkbookByName
これは自分で作る関数です。
どこのサイトを参考にしたのですか？

[cherishlieben]

そうなんですね。
https://www.excelspeedup.com/workbookopen/
こちらのサイトに記載がございました。