For brojac = 1 To 20 Set celija = Worksheets("List1").Cells(brojac, 3) ' neki uvijet 'npr. If celija.Value) = vrijednost Then celija.Value = vrijednost2 Next Counter