У меня всё находит - excel 2007  
(для этого кода версия excel не важна)  
 
Public Sub AddRowToDB_Click()  
   Dim c As Range, firstAddress As Variant  
   'ищем нужную дату  
   For Each c In Worksheets("Лист1").Range("A4:A1952")  
       If c.Value = Worksheets("Лист1").Range("A2").Value Then  
           firstAddress = c.Address  
           Exit For  
       End If  
   Next  
   MsgBox firstAddress  
End Sub  
 
выдаёт результат $A$199  
 
 
вот более простой способ:  
 
Sub AddRowToDB_2_Click()  
   On Error Resume Next  
   firstAddress = Range("A4:A1952").Find([a2]).Address 'ищем нужную дату
   MsgBox firstAddress  
End Sub

ну, батенька развеж, 15.03.2010 равно 15.03.2010 07:00 ?  
забыли как ексель работает с датами?)  
 
 
Public Sub AddRowToDB_Click()  
Dim c As Range, firstAddress As Variant  
   'ищем нужную дату  
               For Each c In Worksheets("Лист1").Range("A198:A1952")  
                   If Round(c.Value, 0) = Round(Worksheets("Лист1").Range("A2").Value, 0) Then  
                       firstAddress = c.Address  
                       MsgBox firstAddress  
                       Exit For  
                   End If  
               Next  
End Sub

Dophin, спасибо!  
Заработало...