スキルアップ・問題解決なら、モーグにおまかせ！

作成されたシート「評価シート」をPDFに自動生成し、
エクセルファイルと同じフォルダに格納させたいのですが、PC環境によって、
「52」のエラーが出ます。
何か良い手はありますでしょうか？
 
＝＝＝作成済みの構文（自身のPCでは作動するが、Win11のPCではエラーコード52がでます。＝＝＝
 
'指定されたファイル名でPDFを作成する
Public Sub CreatePdfFile(ByVal strFilePath As String)
         
    ThisWorkbook.Sheets("評価シート").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strFilePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub
'作業用フォルダを作成する
Sub Make_folder(所属)
    Dim WorkDir As String
    Dim SaveDir As String
     
    WorkDir = ActiveWorkbook.Path & "\Save"
    SaveDir = ActiveWorkbook.Path & "\Save\" & 所属
     
    'フォルダがなければ作成する
    If Dir(WorkDir, vbDirectory) = "" Then
        MkDir WorkDir
    End If
     
    ' フォルダがなければ作成する
    If Dir(SaveDir, vbDirectory) = "" Then
        MkDir SaveDir
    End If
     
End Sub
 
＝＝＝

以下の記事が参考になるかも。
https://teratail.com/questions/3j6s3l81r9e1oa

ありがとうございます。
 
保存先のパスが長すぎるのが原因のようでした。