シート名の存在チェック

シートをVBA上でコピーや移動をする時
同名のシート名があるとエラーで中断してしまいますので
その前で、シート名が存在するかチェックする関数を作りました。
第一引数はシート名です。
Booleanで返却します。

シート名の存在チェック

Public Function checkSheetName(checkName As String) As Boolean

    Dim sheetObject As Object

    checkSheetName = False

    For Each sheetObject In ActiveWorkbook.Sheets
        If sheetObject.Name = checkName Then
            checkSheetName = True
            Exit For
        End If
    Next sheetObject

End Function