Function Recorrer(CeldaInicial As String)
On Error GoTo xError
Dim Renglon As Integer, CeldaActual As String, FilaFinal As Integer
Dim Direccion
Direccion = Split(Excel.Range(CeldaInicial).Address, "$")
Renglon = Direccion(2)
CeldaActual = CeldaInicial
'Final
FilaFinal = Renglon + 100
Do While Renglon <= FilaFinal
Excel.Range(CeldaActual).Activate
Excel.Range(CeldaActual) = Renglon
Renglon = Renglon + 1
CeldaActual = Direccion(1) & Renglon
Loop
xError:
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical, Err.Number
Err.Clear
End If
End Function