thanks Bakerman, Ill have a look
Your code was handy to understand the array principal so got as far as here
The error now is on the reading of the actual textbox value![]()
For i = 0 To UBound(numsearch) 'MsgBox numsearch(i) If DateValue("Ddtxt_" & i).Value - Now() <= 60 Then Me("Ddtxt_" & j).BackColor = vbRed End If Next
Bookmarks