Привет всем
есть цикл и в нем еще, но второй цикл выполняется всего 1 раз (вначале)
спасайте!

For Each col In pSearch.Columns
While i <= 5
If col.Name = NameTemp(i) Then
If col.HasValidValue = False Then
MsgBox "Not valid criteria for " & col.Name _
& ". Put " & col.Type
Exit Sub
End If
col.Value = Temp(i)
End If
i = i + 1
Wend
Next

Нашел!