【VBA】特定文字列を含むセルを検索後、そのセルの座標を取得したい

Question

お世話になっております。
######<やりたいこと>
・コマンド内容の処理
・エラーの解決

######<環境>(追記)
Office 365 バージョン1910(ビルド12130.20410 クイック実行)

######<コマンド内容>
1.特定文字列を含むセルをシートで検索する。
2.特定文字列を含むセルの座標を取得。
3.その座標を変数に格納する。

Option Explicit
Sub search()
    Dim CPs As Range
    Set CPs = Cells.Find(What:="<検索する文字列>", LookAt:=xlPart, SearchOrder:=xlByRows)
    If Not CPs Is Nothing Then
        CPs.Activate
    Else
        Call MsgBox("「<検索する文字列>」セルが見つかりません。")
    End If
    
    Dim CPr As String
    Set CPr = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) '座標を変数に格納
End Sub

######<現在の状態>
・一番最後の文で「オブジェクトが必要です」とエラーが表示される(CPrが原因)。
・「Dim CPr As String」→「Dim CPr As Long」としても同様のエラーが表示される。
・「Dim CPr As String」→「Dim CPr As Range」とすると「型が一致しません(.Addressが原因)」とエラーが表示される。
・変数「CPs」は取得できていることが確認済み(「A13」のような座標)

わかる方がいるようでしたら教えていただけると幸いです。

Answer 1

こんにちは。
Setは不要では？

Comments

[zazabi]

コメントありがとうございます。
「Set CPr = …」→「CPr = …」と修正して実行した結果、「エラー"91"、オブジェクト変数またはWithブロック変数が設定されていません」とエラー内容が変わりました……。

[DreamTheater]

検索文字列と指摘のSet以外全く同じコードを実行しましたが問題なく動作しましたよ。
一旦保存終了した後、EXCEL(VBA)を開きなおして実行しても同じですか？

こちらの環境はOffice365のExcel (1908 11929.20606)です。

[ttyp03]

Excel2013でも問題なく動きました。

[zazabi]

保存し、開きなおして実行してみましたが変わらず……。
環境は「Office 365 バージョン1910(ビルド12130.20410 クイック実行)」です。
この環境は元の質問にも記載します。

追記：念のため新しいブックを作成してそちらでも同様のエラーになるか検証してみます。

[DreamTheater]

実行が停止するのはどこの行ですか？

[zazabi]

DreamTheater さん
ttyp03 さん
コメントありがとうございます。
新しいブックを作成して検証したところ、ご指摘あった通りsetを外すことで問題なく動きました。
作成している間にバグったのでしょうか……。
解決策として、新しいブックで作り直そうかと思います。

ありがとうございました！