当我尝试从字符串更改为变量（VBA）时出现错误91

Question

因此，在尝试从一个工作簿中查找内容并从另一个工作簿复制内容时遇到一些问题，这是我的代码：

Sub beta()


Dim actual As Workbook: Set actual = ActiveWorkbook
Dim brf As Workbook: Set brf = Workbooks.Open(Filename:="brf.csv", Local:=True)
brf.Sheets("brf").Range("A1:E1").Delete
brf.Sheets("brf").Range("D:D").NumberFormat = "@"
Dim numerofilas As Integer
Dim etiqueta As String
Dim caudal As Double
actual.Activate

numerofilas = actual.Sheets(1).Range("C1", Range("C1").End(xlDown)).Rows.Count

actual.Sheets(1).Range("H1").Select
For x = 1 To numerofilas
    etiqueta = ActiveCell.Text
    ActiveCell.Offset(0, -1).Value = 
    brf.Sheets("brf").Range("D:D").Find(etiqueta).Offset(0, 1).Value

    ActiveCell.Offset(1, 0).Select
    Next

End Sub

在For（）循环中，当我向礼仪分配“ 123”时，它可以正常工作，但是当我尝试分配ActiveCell.Value时，执行中出现“错误（91）”。

谢谢。