VBAの質問です。あるブックのシートがあるかどうか確認したいのですが、http://www.k1simplify.com/vba/tipsleaf/leaf14.html

これに似た内容の質問はよくありますが、まわして探すかセットしてみるかくらいしか

やり方がないように思います。

セットしてみるなら

Function ExistSheet(SheetName) As Boolean
    On Error Resume Next
    Dim ws As WorkSheet
    Set ws = Worksheets(SheetName)
    On Error Goto 0
    If ws Is Nothing Then
        ExistSheet = False
    Else
        ExistSheet = True
    End If
End Function

といった感じです。

http://www.ken3.org/vba/backno/vba092.html