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

セルA1に「ABCD:」、B1に「1234567」を入力しておき下記のようなプロシジャーを実行するとB2には問題なく結果が出るのですが、セルA1を変数nmに変えるとエラーになります、変数をどのように書けばいいのか教えて下さい。
Sub TEST()
    Dim nm As String
    nm = "ABCD："
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "= R[-1]C[-1]&TEXT(R[-1]C,""#,###"")"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "= nm&TEXT(R[-1]C,""#,###"")"
End Sub

-----------------------------------------------------------------
Sub TEST()
     
    Dim nm As String
    nm = "ABCD："
     
    Range("B2").FormulaR1C1 = "= R[-1]C[-1]&TEXT(R[-1]C,""#,###"")"
    Range("B3").FormulaR1C1 = "=""" & nm & """&TEXT(R[-2]C,""#,###"")"
 
End Sub
-----------------------------------------------------------------
 
以上のように書き換えればよろしいでしょう。

注意事項
 
変数は、""の中から外にだす。
 
誤
="nm"
 
正
=""" & nm & """"
 
B3セルからB1セルを参照しているから[-1]ではなく[-2]にする。
 
合体すると
    ActiveCell.FormulaR1C1 = "=""" & nm & """" & "&TEXT(R[-2]C,""#,###"")

skさん WinArrowさんありがとうございました、あれこれ3時間も苦労してうまくいかなかった問題が解決しました。