Matching multiple rows

[Tej92]

Hello, I'm using the following in a commandbutton to look for a value in a cell and then go find it in another sheet to then assign a date to the cell, at the moment the code below is executing properly on the first instance found but I'd like it to do it for all the match results.

Private Sub CommandButton3_Click()
x = Sheets("Cell 1").Range("action_required1")
With Sheets("Actions")
Set rngfind = .Cells.Find(x, , , 1)
rngfind.Offset(, 3) = Date
End With
Range("I22:O22").Value = ""
End Sub

Kind regards

 

[Tej92]

Any help would be greatly appreciated!

 

[Tej92]

Any help would be greatly appreciated!