columnTitles(0) = "voce" Sheets("List1").Select Do While (True) Dim Title As Variant Dim nasao As Boolean nasao = False Dim c As Range For Each c In ActiveSheet.UsedRange If c.Row > 1 Then Exit For End If For Each Title In columnTitles If (Title = c.Value) Then ...nasao kolonu voce ...nesto napravi nasao = True Exit For End If Next Next c If (nasao = False) Then Exit Do End If Loop