vba 名前がない場合のエラーコード

こんな感じかなぁ

Sub test()

    'On Error Resume Next '処理継続

    On Error GoTo ErrHandler

    Range("セル１").Value = "AA1"

    Range("セル２").Value = "AA2"   'エラーとなる

    Range("セル３").Value = "AA3"

Exit Sub

ErrHandler:

    'MsgBox ("Error No =" & Err.Number & vbCr & "Error Msg=" & Err.Description)

    If Err.Number = 1004 Then

        Resume Next

    End If

End Sub

数式で名前を定義し使用する - Excel - Office.com

1.名前を指定するセル、セル範囲、または隣接しないセル範囲を選択します。

2.数式バーの左端にある [名前] ボックス

 数式バーの名前ボックス をクリックします。

3.選択範囲を参照するときに使用する名前を入力します。
 名前に使用できる文字数は半角で 255 文字までです。

4.Enter キーを押します。

名前の定義は数式タブ