できる逆引き 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