Match up and delete cells to the right

[Robn02]

Need a macro that will lookup a value from B2 in range D3:D10, and delete the data in the 3 cells to the right. So if D5 has the value entered in B2, E5,F5,G5 contents get deleted when the Delete macro button is pressed.

Thanks.
Rob

 

[Osvaldo Palmeiro]

Try:

Sub ClearCells()
 Dim c As Range
  For Each c In Range("D3:D10")
   If c.Value = [B2] Then c.Offset(, 1).Resize(, 3).Value = ""
  Next c
End Sub

 

[Robn02]

That did it. Thanks sir!
Rob.