VBAで対象のシートが存在するかチェックする方法

VBA でマクロを組んで定型的なことを自動化する場合に、目的のシートやブックが
存在するかどうかのチェックは必ず必要になると思います。

そのシートがあるのに新規作成すると、エラーで終了します、
無い場合は作成するためにも存在のチェックが必要になります。

ここで紹介する Function は、アクティブになっているワークブックに、
引数 SheetName のシートが実際にあるかチェックします。

あれば True なければ False を返します。
Sheets.Count でワークブックにシートが何枚あるかわかります。

Sheets(i).Name でシートの名前を順番に取得できます。

For ループで1枚ずつ、シートの名前が SheetName と等しいかチェックして います。


-------------------------------------------------------------------
'SheetName のシートが実際にあるかチェックする
Function Sheet_存在Check(sheetname As String) As Boolean
Dim i As Integer

Sheet_存在Check = False

For i = 1 To Sheets.Count
If Sheets(i).Name = sheetname Then
Sheet_存在Check = True
Exit For
End If
Next

End Function

----------------------------------------------------------

EXCEL VBA xls Excel2003