Just a note, when using a variable to direct commands applicable to a specific sheet object, attach that object to each range object in your commands, not just most of them, all of them.
So this line of code:
Set FoundRng = Ws1.Range(Ws1.Cells(2, 13), Ws1.Cells(Rows.Count, 13).End(xlUp)).Cells.Find(SrchString)
Should really be this:
Set FoundRng = Ws1.Range(Ws1.Cells(2, 13), Ws1.Cells(ws1.Rows.Count, 13).End(xlUp)).Cells.Find(SrchString)
Or this:
With ws1
Set FoundRng = .Range(.Cells(2, 13), .Cells(.Rows.Count, 13).End(xlUp)).Cells.Find(SrchString)
End With
Bookmarks