Q:

How do you find the first value greater than zero in a column in VBA?

I know this is easily done outside of VBA but I want to get proficient with VBA as a beginner. 
I have a long column (about 25,000 rows). I need to find the first instance a cell value is greater than zero in that column. Then I need to return the address of that cell to a variable. So far I've been using a loop to no success, any suggestions? 

A:

You can easily do the following:
For each c in Range("A1:A25000").Cells
  If c.Value > 0 Then
    firstValue = c.Value
    firstAddress = c.Address
    Exit For
  End If
Next

MsgBox "The first value greater than zero is in cell " & firstAddress & _
       "; - it has value " & firstValue

