Hello, I am using the code below to find text in a worksheet then loop through and find the next occurrence until it can't find any new occurrences. But I get a Runtime Error 13; Type Mismatch error when a I run it a second time. It works the first time but generates the error on the second run through the code.
The type mismatch error occurs at:
Set currentFind = xlSh.Cells.Find(What:="W2017", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Please Login or Register to view this content.
Bookmarks