Получаем индекс нашего ассортимента

Question

Я пытаюсь найти номер в другой книге, а затем скопировать столбец 2 соответствующей строки в ячейку (B5) исходного документа.Сам код выполняется, но я продолжаю получать индекс ошибки времени выполнения вне диапазона.

Sub findsomething()

Dim rng As Range
Dim account As String
Dim rownumber As Long
Dim dehyp As Long
Dim wb As Workbook

account = Replace(Range("A5").Value, "-", "")
Set wb = Workbooks.Open( _
  "L:\PRS\CEPA\Chemicals Management Plan\!Overviews and Summaries\" & _
  "List-of-substances-in-the-third-phase-of-CMP-(2016-2021).xlsx")

Set rng = wb.Sheets("Substances List 2019").Columns(1).Find(What:=account, _
    LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
    ThisWorkbook.Sheets("Total usage").Cells(2, 5).Value = _
           wb.Sheets("Substances List 2019").Cells(rng.Row, 2).Value
End If

End Sub

Я просматривал другие стеки по запросам потока и он говорит, что vsubscript не распознает константы Excel, которые я не могу понять.Так что, если кто-нибудь может предложить какие-либо решения или объяснение, чтобы сказать мне, как исправить код, я был бы очень признателен!