1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Sub ZeroEm() Dim c As Range Dim rng1 As Range Dim ws As Worksheet Set ws = Range("AllAll").Parent For Each c In Range("dings") If UCase$(c.Value) = "TRUE" Then Set rng1 = Intersect(Range("AllAll"), ws.Rows(c.Row)) rng1.Value = "0" End If Next End Sub