テキスト(タブ区切り)で保存するVBA

Question

前提・実現したいこと

Excel内のボタンを押すことで保存ファイル名を指定後、テキスト(タブ区切り)ファイルで保存できる機構を作成。
しかし、フォーマット指定をすると以下のエラーが表示されます。

発生している問題・エラーメッセージ

実行時エラー '1004':
'SaveAs'メソッドは失敗しました:'_Workbook'オブジェクト

該当のソースコード

Sub TabTxtSave()

    Dim Fname As String
    Fname = InputBox("ファイル名指定") '保存するファイル名を入力します。
    
    If Fname = "" Then
        MsgBox "保存処理を破棄しました"
        End
    End If
    
    '入力されたファイル名で保存します。
    ActiveWorkbook.SaveAs Filename:="C:\Users\owner\Desktop\01_XXX\01_YYY\02_Making\" & Fname, FileFormat:="xlCurrentPlatformText"
    
End Sub

試したこと

'入力されたファイル名で保存します。
ActiveWorkbook.SaveAs Filename:="C:\Users\owner\Desktop\01_XXX\01_YYY\02_Making\" & Fname

上記のようにFileFormatを指定しない場合は正常に動作し、保存されます。

補足情報（FW/ツールのバージョンなど）

Excel 2019
標準モジュール内に記載

Answer 1

FileFormat:=xlCurrentPlatformText