como recorrer columna excel?

[extrem_bcn]

En el bucle de más abajo necesito recorres una columna de un excel, como puedo hacerlo?



If Not IsDate(.Range("B" & i - 1).Formula) Then
Do While Not IsDate(ActiveCell.Formula)

'Como puedo ir a la celda superior? es decir a la B8 b7 b6 etc... hasta que me encuentre la celda que sea fecha.

Loop
End If



gracias!!!!

[vbx3m]

Si quieres recorrer en forma ascendente te puedes guiar de este codigo:

Código:

Private Ex As New Excel.Application

Private Sub Form_Load()
.....
.....
Celda(10)
End Sub

Private Function Celda(n As Integer)
Do While Ex.Cells (n, 2) <> "algo"   
    n=n-1      
Loop    
....
.....
.....
End Function