Public Sub SaveBook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim strPath As String
    Dim strFileName As String
    
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Создание уведомления")
    
    strPath = "C:\" & ws.Cells( 4 ,  2 )
    strFileName = Trim(ws.Cells( 4 ,  1 ))
    
    MkDir strPath

    wb.SaveAs Filename:=strPath & "\" & "Notification-" & strFileName & ".xls"
End Sub

Public Sub SaveBook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim strPath As String
    Dim strFileName As String
    
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Создание уведомления")
    
    strPath = "C:\" & ws.Cells( 4 ,  2 )
    strFileName = Trim(ws.Cells( 4 ,  1 ))
    
    If Len(Dir(strPath, vbDirectory)) =  0  Then
        MkDir strPath
    End If

    Worksheets("Уведомление1").Copy
    ActiveWorkbook.SaveAs Filename:=strPath & "\" & "Notification-" & strFileName & ".xls"
    ActiveWorkbook.Close
End Sub