Public Function mysave() As String
    Dim result As Integer
    Dim p As String
    With Application.FileDialog(msoFileDialogSaveAs)< --------здесь ошибка
 
        .Title = "Сохранение Excel-файла"
        .Filters.Add "Excel-файл", "*.xls"
        result = .Show
    If result <>  0  Then
        p = Trim(.SelectedItems.Item( 1 ))
    End If
    End With
    If p = "" Then
        MsgBox ("Вы не правильно выбрали путь сохранения объекта")
        p = CurrentProject.Path
        MsgBox ("Файл сохранён в место хранеия базы данных")
    Else
        mysave = p
    End If
    
End Function

Public Function mysave() As String
    Dim result As Integer
    Dim p As String
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Сохранение Excel-файла"
        .Filters.Add "Excel-файл", "*.xls"
        result = .Show
    If result <>  0  Then
        p = Trim(.SelectedItems.Item( 1 ))
    End If
    End With
    If p = "" Then
        MsgBox ("Вы не правильно выбрали путь сохранения объекта")
        p = CurrentProject.Path
        MsgBox ("Файл сохранён в место хранения базы данных")
       End If
       mysave = p
    End Function

With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выбор проекта"
        '.Filters.Add "Все файлы", "*.*"
        .Filters.Add "Проекты", "*.mpp"
        .FilterIndex =  1 
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        result = .Show
        If result <>  0  Then
        p = Trim(.SelectedItems.Item( 1 ))
        End If
        End With
        If p = "" Then GoTo n1