エクセルのマクロについて教えてください。

下記のマクロを実行して、指定フォルダをワイルドカードを使用したフォルダ内にコピーを出来るように設定しましたが
画像のようなエラーメッセージが出て
コードの「FSO.CopyFolder Adr & "\検査時必要図書（正本）", Adr & "\########-#_*\"」が黄色くなっており、上手く実行できません。
解決方法を教えてください。
ワイルドカードを"\########-#_*\"」としており
例えばコピー先のフォルダ名が「12345678-5_北海 太郎」です。
よろしくお願いいたします。
マクロ
Sub フォルダコピー正8()
'※※フォルダをコピーする※※

Dim FSO As Object
Dim Adr As String

'FileSystemObjectオブジェクトを作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'コピー対象のフォルダパスを変数に代入
Adr = ThisWorkbook.Path
'「Dataフォルダ」を「Sampleフォルダ」にコピーする
FSO.CopyFolder Adr & "\検査時必要図書（正本）", Adr & "\########-#_*\"

End Sub
です。