Sub FindLoop() With re Set d = .Find("REQM", LookIn:=xlFormulas, LookAt:=xlWhole) MsgBox (d.Row) Call FindEntryArea Do Set d = .FindNext(d) MsgBox (d.Row) Call FindEntryArea Loop While Not c Is Nothing End With End Sub
Trying to figure out the error I used msgbox to print out the row of the range that was being found this worked fine for the first cell but did not work for the findnext. I get object variable or with block variable not set. I am fairly new to VBA and this is my first time using findnext so any guidance would be appreciated. Also re is my range and there are plenty of other cells that should be found within it.