Excelで日程表を作ってみよう：Step2 同じブック名は作成できないようにする

Public Sub MakeNitteiBook()
    Dim makefile As String
    Dim BookName As String
    
    '作成するファイル名
    makefile = GetSaveFileName
    If makefile = "" Then
        Exit Sub
    End If
    
    'ブック名を取得
    BookName = GetFileName(makefile)
    BookName = GetFileNameOnly(BookName)
    If UCase(GetFileNameOnly(ActiveWorkbook.Name)) = UCase(BookName) Then
        Beep
        MsgBox "このブックと同じブック名は作成することはできません。", , "日程表作成"
        Exit Sub
    End If
    
    '新規にブックを作成
    NewBookMake makefile
    
    Workbooks(BookName).Activate
End Sub

'作成するファイル名
Public Function GetSaveFileName() As String
    Dim sfile As String

    sfile = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="エクセルファイル (*.xls), *.xls", Title:="保存するエクセルファイルの指定")
    If sfile = "False" Then
        GetSaveFileName = ""
    Else
        GetSaveFileName = sfile
    End If
End Function