excel - 查找匹配单元格的列号

Question

我试图找出包含 VBA 中匹配字符串的单元格的列号。我正在使用范围查找来做到这一点。例如，在第一张表中，我在第一张表中关注

**Block Sub Block**
A       sfdbfg
B       hhd
sdsad   trh
adfasd  hrh
afadc   bdgfb

在 Sheet2 中，我想找到“块”和“子块”列的列号，然后根据某些标准，我尝试从这些列中读取一些行。我正在使用以下代码-

Header1_column_num = ActiveWorkbook.Sheets(sheet1).Range("A1:A5").Find("Block",LookIn:=xlValues, SearchOrder:=xlByColumns).Column

Header2_column_num = ActiveWorkbook.Sheets(sheet1).Range("A1:A5").Find("Sub Block", LookIn:=xlValues, SearchOrder:=xlByColumns).Column

但是当我执行此代码时，它会在 Header2_column_num-“对象变量或未设置块变量”行上引发错误

知道我做错了什么吗？