VBA - сохранить файл в формате PDF в определенном месте с заранее заданным именем

Question

Код ниже работает нормально, пока не сгенерирует имя файла.Он выбирает правильное местоположение папки, но имя файла пустое.

Если я выберу местоположение где-нибудь на моей локальной машине, тогда появится имя файла.Не могли бы вы посоветовать мне, что мне делать по-другому, пожалуйста?

Private Sub CBSaveasPDF_Click()
    Dim FileAndLocation As Variant
    Dim strPathLocation As String
    Dim strFilename As String
    Dim strPathFile As String        


    strPathLocation = "http://teams.xxx.intranet/sites/bipm/test/test/test/test/test/"
    strFilename = Me.Range("D8") & " -" & Me.Range("D7") & " -" & Me.Range("J7") & " " & Me.Range("B3")
    strPathFile = strPathLocation & strFilename

    FileAndLocation = Application.GetSaveAsFilename _
                        (InitialFileName:=strPathLocation & strFilename, _
                        filefilter:="PDF Files (*.pdf), *.pdf", _
                        Title:="Select Folder and FileName to save")
        If FileAndLocation = "False" Then
            MsgBox ("Document not saved")
            Exit Sub
        End If

        Me.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=strFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True