Teamsフォルダに格納したファイルのマクロを実行して格納しているフォルダにそのままPDFファイルを保存したい

現在、Excelで任意のデータを指定された枚数分PDF化するマクロを書き、OneDrive上に保存することはできたのですが、Teams上（SharePoint）に保存することができない状況です。

●行いたいこと：Excelマクロファイルを任意のTeamsのフォルダに格納。そのExcelマクロを開き、マクロを実行し、その任意のTeamsのフォルダに保存

●現在のコード
Sub continuousOutputAsPDF()

Const L_TARGET_CELL_ADDRESS As String = "M6"     ' 値設定対象のセル

Const L_STARTING_NUMBER     As Long = 1          ' 開始番号

Const L_ENDING_NUMBER       As Long = 205        ' 終了番号

Const L_STEP                As Long = 1          ' 番号の増分値

' PDF出力先フォルダの選択　**←①**

MsgBox "出力先のフォルダを選択してください", vbInformation

Dim strFolderPath As String

With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show Then

        strFolderPath = .SelectedItems(1) & Application.PathSeparator

    Else

        Exit Sub

    End If

End With

' PDF出力

Application.ScreenUpdating = False

Dim i As Long

For i = L_STARTING_NUMBER To L_ENDING_NUMBER Step L_STEP



    ' 値設定対象セルに値を設定

    ActiveSheet.Range(L_TARGET_CELL_ADDRESS).Value = i


    

    ' PDFファイル名を生成（セル"L2"の値を使用）

    Dim strFileName As String

    strFileName = strFolderPath & Range("L2").Value & ".pdf"


    

    ' アクティブシートをPDFとして出力

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

                                    Filename:=strFileName, _

                                    OpenAfterPublish:=False

Next i

Application.ScreenUpdating = True
```End Sub

①の部分をフォルダを指定せず、格納先のフォルダにそのままPDFで保存したい。

どなたかご教示ください