EXCEL VBAについて

Question

EXCELの特定のシートからデータを抽出し、一覧表に記入するマクロを作っているのですがエラーの場所がわからずに困っています。
わかる方ご教授願えませんでしょうか？

Dim mysObj As Range
    Dim mdeaObj As Range
    Dim yamaObj As Range
    Dim otherObj As Range
    Dim myObj As Range
    Dim iNum As Integer
    Dim keyWord As String
    Set mysObj = Worksheets("a").Range("B3:B53")
    Set mdeaObj = Worksheets("b").Range("B3:B53")
    Set yamaObj = Worksheets("d").Range("B3:B53")
    Set otherObj = Worksheets("c").Range("B3:B53")
    Dim count As Integer    
    For iNum = 0 To 9
        '---対象の行の名前取得---'
        count = iNum * 8
        If Range("E25").Offset(count, 0).Value <> "" Then
            keyWord = Range("E25").Offset(count, 0).Value
            '---対象名のシート検索---'
            Set myObj = aObj.Find(keyWord, LookAt:=xlWhole) '---aのシート検索---'
            If myObj Is Nothing Then Set myObj = bObj.Find(keyWord, LookAt:=xlWhole) '---bのシート検索---'
            If myObj Is Nothing Then Set myObj = cObj.Find(keyWord, LookAt:=xlWhole) '---cのシート検索---'
            If myObj Is Nothing Then Set myObj = dObj.Find(keyWord, LookAt:=xlWhole) '---dのシート検索---'
            '---対象名がヒットすればデータ代入、無ければメッセージボックス通知---'
            If myObj Is Nothing Then
                MsgBox "'" & keyWord & "'の名簿はありません。"
            Else
                '---データ代入開始---'
                If Cells(myObj.Row, 3).Value <> "" Then
                    Range("E23").Offset(count, 0).Select
                    ActiveCell.Value = Cells(myObj.Row, 3).Value
                End If
                
            End If
        End If
    Next iNum
End Sub

Answer 1

まず、モジュールの先頭に下記のコードを追加して変数宣言を強制するようにしてください。

Option Explicit

Office TANAKA - 今さら聞けないVBA[変数って宣言しなくちゃいけないの？]

この後、メニューの**[デバッグ]-[〇〇のコンパイル]**をクリックしてみてください。
（〇〇はプロジェクト名）

すると、下記の aObj が選択されて、「変数が定義されてません」と間違いを指摘してくれます。

            Set myObj = aObj.Find(keyWord, LookAt:=xlWhole)    '---aのシート検索---'

aObj は下記のことではないでしょうか。

 Set mysObj = Worksheets("a").Range("B3:B53")

だとしたら、aObj を mysObj と書き換えればこのエラーは回避できます。

あと、同様に、bObj, cObj, dObj も修正する必要があるでしょう。