Range.Find メソッド (Excel) を使ってサーチする際、サーチ先の範囲の列幅が狭いと検索できない

例えば、以下はマイクロソフトのサイトに表示されている使用例ですが、下の例では、a1~a500 の範囲にある数値の2を検索しています。

この時 a列の幅が狭く、数値が ### と表示されていると、検索にかからないので注意が必要です。

With Worksheets(1).Range("a1:a500") 
    Set c = .Find(2, lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            c.Value = 5 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With 

そこで!
サーチ範囲の列幅が狭くなってしまっいる場合を想定して、次のような対策をすることにしました。

    '---------------------------------------------
    '科目一覧シートの科目コード列の幅を広げる
    '幅が狭く###になると、Find での sarchができなくなる為
    
    Worksheets(1).Columns("A:A").EntireColumn.AutoFit
    
    '---------------------------------------------