在EXCEL宏中有关FIND（）函数问题？

[feifei99]

column(4).select
Selection.Find(What:=FNAME, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
如果找不到该记录，在调试时将执行不下去。请问各位大虾，FIND（）函数有没有返回参数，这样可以判断是否能找到。

[feifei99]

谢谢williamtom的帮助，有一新问题请教，已留言给你，赐教１

[williamtom]

FIND（）函数返回range对象

dim rng1 as Range
Set rng1 = xlsSheet.Cells.Find(WhatFNAME, After:=ActiveCell, LookIn:=xlFormulas, LookAt :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= False)
If rng1 Is Nothing Then
'未找到
endif

[williamtom]

补充:
应将xlsSheet.Cells.换成Selection.