Type Mismatch
 

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.


--
Raman325
------------------------------------------------------------------------
Raman325's Profile: http://www.excelforum.com/member.php...o&userid=24748
View this thread: http://www.excelforum.com/showthread...hreadid=383221

Type Mismatch
 

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