ページ

2012/04/26

[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