[Excel][VBA]シートの存在チェック

できる逆引き Excel VBAを極める 勝ちワザ700
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)

国本 温子

インプレスジャパン

発売日：2012-02-09

シート名を渡すとそのシート名のシートが存在するかどうかチェックする。

Function IsExistSheet(SheetName As String) As Boolean

    Dim ws As Worksheet, flag As Boolean
    
    flag = False
    
    For Each ws In Worksheets
        If ws.Name = SheetName Then flag = True
    Next ws

    IsExistSheet = flag

End Function