シート名を配列に格納する

シート名を配列に格納する関数

使用例

Sub main()
    Dim WB as Workbook
    Set WB = ActiveWorkBook

    Dim mySheetName As Variant
    mySheetName = CheckSheetName(WB)
End Sub