I would really appreciate some help with the code below. I haven't had much luck trying to make it work the way I want it to. What I'm trying to do is find the value entered in tab 1 cell "K2" in tab 2. If value exist in tab 2 it will select the value and does some code, and then check if another cell exist with the text string. What I can't figure out is creating the loop that will find all cells that have the text string I'm trying to find. Thanks in advance!
Sub test() Dim SearchRng As range Dim FindVar As Variant Dim find As Variant Dim EndNum As Long Dim r As range Set Final = ActiveWorkbook.Worksheets("Tab 1") Set WS = ActiveWorkbook.Worksheets("Tab 2") EndNum = WS.range("A1").End(xlDown).row Set SearchRng = WS.range("A1:A" & CStr(EndNum)) Set FindVar = SearchRng.find(range("K2").Value) For Each r In FindVar If Not FindVar Is Nothing Then WS.Activate FindVar.Activate 'my code Else End If Next End Sub