code tweak to copy data from sheet1 to sheet2

I am using the code below to copy data from sheet1 to sheet2 and it works fine as long as it's looking for for text such "ABCDEF" but when I specify "2000.00" then it returns no results. How can I make this work with the numeric value?

Public Sub find_data()

Dim lngloop As Long

With ActiveSheet
    For lngloop = 1 To .Range("C65536").End(xlUp).Row
        If .Cells(lngloop, 9).Value = "2000.00" Then
            .Cells(lngloop, 9).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
        End If
    Next lngloop
End With
End Sub

Thanks for any help.
Barry

By placing speech marks around it Excel is looking for a Text value not numeric