أخى ابراهيم
لتعديل الكود يتم وضع السطر التالى
On Error Resume Next
ليكون الكود كالاتى
Sub ragab()
Dim sdate As Date, cl As Range
On Error Resume Next
sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له")
For Each cl In [A6:A25]
If sdate = cl Then cl.Select: Exit For
Next
End Sub