VBA 查找问题

下面是我用的宏录出来的代码，在A列，查找变量A，找到了，继续向下执行代码，
没找到，直接用GOTO 10。
现在的问题是，如果找不到变量A，程序会出错。
Range("A:A").Select
Selection.Find(What:=A, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

我还不太想用循环语句一个单元格一个单元格的找。

定义一个单元格变量，如:Ra
set Ra=Range("A:A).Find(What:=A, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False)
if ra is nothing then goto 10'如果没有找到
'继续执行的代码

sub macro1() dim xrng as range, firstrng as range if left(range("a1"), 3) = "d1[" then set firstrng = range("a1") else set firstrng = cells.find("d1[") end if set xrng = cells.find("d1[", firstrng) if xrng is nothing then msgbox "没有了" else msgbox xrng.row end if end sub