查找具有特定标题的列号

Question

我想查找包含特定标题的列号。我已经写了几行简单的代码。但是，即使这给了我1004的运行时错误，应用程序定义的错误或对象定义的错误。我在做什么或不做什么导致此问题？请帮忙。谢谢。

Private Sub worksheet_Change(ByVal target As Range)

Dim col As Long

col = Range("A1:A4").Find("abc", , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Column

Cells(1, 6).Value = col

End Sub