For Each celija In Worksheets("List1").Range("A1:D10").Cells If celija.Value = vrijednost Then celija.Value = vrijednost2 Next