Runtime Error 13 Type Mismatch

[Arturo]

I’m testing If rngFound Is Nothing.
(A) searches too broadly where I’m needing to only look in column A. (B)
generates a type mismatch 13. Every type I’ve assigned to rngFound results
in an error I’m not resolveing…

(A)
Dim rngFound As Range
Set rngFound = Cells.Find(What:=Y_CellBase, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

(B)
Dim rngFound As Range
Set rngFound = Columns("A:A").Find(What:=Y_CellBase, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

Appreciatively,
Arturo

 

[Tom Ogilvy]

I would expect version B to work, but try changing

Columns("A:A") to Columns(1)