Sub Cancella() Dim rng, x, d d = Range("AW25") Set rng = Range("A3:P31") For Each x In rng If x = d Then Cells(x.Row, x.Column).ClearContents Next x End Sub