Type Mismatch

[Raman325]

For some reason, I'm having a bit of a problem with this bit of code and
I can't figure out why:


Code:
--------------------
Set rngFindRange = baseBook.ActiveSheet.Range("H" & basePos, "BE500")
Set rngFoundCell = rngFindRange.Find(Selection.Value, "H" & basePos, xlValues, xlWhole, xlByRows, xlNext)
--------------------


I keep getting a type mismatch with that but I can't figure out why.
baseBook is a valid Workbook and basePos is a valid Long. Can anyone
help? Thanks in advance.

 

[jjk]

Hi Raman,

You have specified a string for the parameter 'After' for the 'Find'
function.
The following should work.

Set rngFoundCell = rngFindRange.Find(Selection.Va­lue,
rngFindRange.Cells(1,1), xlValues, xlWhole, xlByRows, xlNext)

Regards,
Jayant