Kazuoさん
すみません

私が間違っていました

Const sBackF = "バックアップ用\"        '同じディレクトリーにある別のフォルダ（例：バックアップ用）

正しかったですｍ(_ _)m

私の提示の仕方が誤っていました

「#2収納.xlsmと同じカレントディレクトリーにある」と申しあげておりましたが、

私の希望としては
「#2収納.xlsm」がある同じ場所に
「バックアップ用」フォルダを作成しておりますので

そこに
「#2収納バックアップ.xlk」を保存したかったのです

ご多忙中申し訳ありません
恐れ入りますが
再度コードのご教示のほど
よろしくお願い出来れば幸いです。

 Kazuoさん
ありがとうございます

下記のように定義の所のコード内容を
一部変更しまして動作確認したところ
#2収納.xlsmは保存出来ましたが、

バックアップ用フォルダ（#2収納.xlsmと同じカレントディレクトリーにある）には
#2収納バックアップ.xlkが作成されていませんでした


申し訳ありませんが、
コードで私が間違えている所があるかと思います。
ご多忙中恐れ入りますが
よろしくご教示の程お願いいたします。


Private Sub CommandButton11_Click()
   ‘ Const sBackF = "バックアップ用\"        '同じディレクトリーにある別のフォルダ（例：バックアップ用）
‘↑・・・￥を取りました・・・デバッグとなったため
Const sBackF = "バックアップ用"        '同じディレクトリーにある別のフォルダ（例：バックアップ用）

    Const sTarget = "#2収納.xlsm"       'xls,xlsx.xlsmのみを想定　xlsbや保存前ブック等は一旦左記Excelブックとして保存しておくこと
    Const sToxlk = "#2収納バックアップ.xlk"     '別のフォルダに保存するときのバックアップファイル名
    Const sBackN = " のバックアップ.xlk"    '作成されるバックアップファイルの規定名：xl2021の場合（xl2007で変わるのなら要変更）

＞新規で質問を投稿する場合Windows 11はOSの選択肢に出てこないのです
失礼しました。確認しました。新規は対応されていなかったんだ。
間違えて投稿した【[196321] オートフィルター使用して検索】でしか見ていなかったのでごめんなさい。
一例です。

Sub sample()
    Const sBackF = "バックアップ用\"        '同じディレクトリーにある別のフォルダ（例：バックアップ用）
    Const sTarget = "Ａファイル.xlsm"       'xls,xlsx.xlsmのみを想定　xlsbや保存前ブック等は一旦左記Excelブックとして保存しておくこと
    Const sToxlk = "Ａバックアップ.xlk"     '別のフォルダに保存するときのバックアップファイル名
    Const sBackN = " のバックアップ.xlk"    '作成されるバックアップファイルの規定名：xl2021の場合（xl2007で変わるのなら要変更）
    
    Dim wb As Workbook
    Dim sPath As String
    Dim sFile As String
    
    Application.DisplayAlerts = False                           'SaveAsでメッセージを出さないよう
    On Error Resume Next
    Set wb = Workbooks(sTarget)
    On Error GoTo 0
    If wb Is Nothing Then
        MsgBox sTarget & "が開かれていません"
        Exit Sub
    End If
'    wb.Save                                                     '開かれた状態でバックアップする場合はターゲットファイルを保存
    wb.SaveAs wb.Path & "\" & wb.Name, CreateBackup:=True       'バックアップファイルを作成
    wb.SaveAs wb.Path & "\" & wb.Name, CreateBackup:=False      'バックアップファイルを作成するのチェックを外す
    sPath = Left(wb.Path, InStrRev(wb.Path, "\")) & sBackF      '同じディレクトリーにある別のフォルダ
    sFile = Left(wb.Name, InStrRev(wb.Name, ".") - 1) & sBackN  'バックアップファイル名
    On Error Resume Next
    Kill sPath & sToxlk                                         '指定場所の既存ファイル削除
    On Error GoTo 0
    Name wb.Path & "\" & sFile As sPath & sToxlk                'バックアップファイルを指定場所に指定名で保存
End Sub