ｼｰﾄの存在確認（ｸﾞﾗﾌｼｰﾄも対象）

Function isExistSheet(ByVal WorkbookName As String, ByVal CheckName As String, ByRef pos)
'
' ｼｰﾄの存在有無のﾁｪｯｸ（大文字、小文字、全角、半角を同一とみなす）ｸﾞﾗﾌｼｰﾄも対象
'
' WorkbookName: 対象ﾜｰｸﾌﾞｯｸ名
' CheckName: 確認するｼｰﾄ名
' pos      : 存在する場合のｼｰﾄ番号格納用
'            あいまいな重複名の確認のため
'            呼び出し側でｼｰﾄを特定するために使用
' 戻り値: true /存在する
'         false/存在しない
'
' ﾜｰｸﾌﾞｯｸは起動していること
'

    Dim ws As Object
   
    isExistSheet = False
   
    For Each ws In Application.Workbooks(WorkbookName).Sheets
        '存在確認
        If StrConv(ws.Name, vbUpperCase + vbWide) = _
           StrConv(CheckName, vbUpperCase + vbWide) Then
            isExistSheet = True
            pos = ws.Index
            Exit For
        End If
    Next ws
   
End Function