Theres a good lad!
Cheers very much!



Anders Andersson wrote in message
...


If I understand you rigth this will help you.

For QQQ = 0 To 200
checkfordate = Cells(7, 1 + QQQ).Value
If checkfordate = dateoftt Then
Cells(9, 1 + QQQ).Select
Exit For
End If
Next QQQ


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!