名前付き範囲のRange().Selectでエラーが出てしまう

Question

初心者です。ExcelVBAを使用して、検索したCell範囲をまとめてて選択状態にしたいと考えています。しかし、その名前付き範囲をSelectに指定して実行してもエラーが出てきてしまいます。解決のため何かヒントはないでしょうか？

省略～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
    Dim 検索結果 As Range 
    Set 検索結果 = c
    
    Do
        Set c = r.FindNext(c) 
        a = a + 1
        If c.Address = 最初のセル Then 
            Exit Do
        End If        
        Set 検索結果 = Union(検索結果, c) 
    Loop
    
    ActiveSheet.Range("検索結果").Select　←ここでエラー
    Debug.Print (検索結果.Address)
    Debug.Print (a)

End Sub

エラーは「”1004”　アプリケーション定義またはオブジェクト定義のエラーです。」
とでます。いろいろ調べましたがお手上げ状態です。
「検索結果」の範囲のアドレスをデバックで表示してみても範囲が問題なく出ます(デバック結果：$D$2:$D$418)。
＊コード省略部分は検索範囲の設定部分です

Comments

[imihito]

Excelの「名前付き範囲」と、VBAの変数(`検索結果`・`c`・`r`・`a`・`最初のセル`)は異なるものですが、その認識は大丈夫でしょうか？

[6da522f5bb9d48]

本当に初心者なものですみませんが、変数で設定した範囲がそのままExcelの名前付き範囲として成り立つわけではないということでしょうか・・・

[imihito]

はい。変数で設定した範囲がそのままExcelの名前付き範囲になるわけではありません。
概念としては似ているかもしれませんが、機能としては全く関連がありません。

Answer 1

Range(検索結果.Address).Name = "dd"
Range("dd").Select

名前を再定義して実行したところ、選択できているのが確認できました。

Answer 2

"検索結果"だとそういう文字列になるので、Range型の変数としての検索結果を利用する必要があるのではないでしょうか。

検索結果.Select

Comments

[imihito]

Rangeプロパティに、Rangeオブジェクトを1個指定することはできない(より正確にはセルの値を文字列に変換し、その文字列をアドレスとして解釈)ので
`検索結果.Select`とするのが適当ではないでしょうか？

[m.ts10806]

あ、確かに。そもそも型がRangeで定義されてましたね。

[6da522f5bb9d48]

回答ありがとうございます。無理やりですが自己解決いたしました。
本当にありがとうございます

[m.ts10806]

私が提示した案は試してみられたのでしょうか