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!