Find value with 0

[DT_User]

I have a column of data that is sorted numerically largest to smallest. I am looking for macro code that will take me to the first row that has a value of 0 (zero)

Thanks for your help-David

 

[Scott Huish]

This is set for Column A, change as necessary.

Sub test()
Dim x As Range
Set x = Range("A:A").Find(0, Cells(Rows.Count, 1))
If Not x Is Nothing Then x.Select
End Sub

 

[DT_User]

Thanks for the reply. However, when I run the macro it seems to take me to the row with the first number including a 0 to the left of the decimal. For example in the below data, the macro jumps to the row with the number 616,608.90 when I would like it to jump to the row with the first occurance of 0

1,365,412.30
1,239,147.00
831,634.80
748,545.70
719,691.00
616,608.90
536,078.70
535,532.60
-
-
-
-

 

[Scott Huish]

Sub test()
Dim x As Range
Set x = Range("A:A").Find(0, Cells(Rows.Count, 1), lookat:=xlWhole)
If Not x Is Nothing Then x.Select
End Sub