名前で指定された複数セルをすべて処理

Sub ProcessNamedRange()
    Dim targetRange As Range
    Dim cell As Range

    ' 「MyNamedRange」は名前で指定した範囲の名前です。適切な名前に置き換えてください。
    On Error Resume Next
    Set targetRange = Range("MyNamedRange")
    On Error GoTo 0

    ' 名前で指定された範囲が存在するかを確認
    If Not targetRange Is Nothing Then
        ' 各セルに対して処理を行う
        For Each cell In targetRange
            ' ここにセルごとの処理を記述
            ' 例: MsgBox cell.Value
        Next cell
    Else
        MsgBox "指定された名前の範囲が存在しません。"
    End If
End Sub