ler celula de segundo em segundo

[Angelo Augusto]

Pessoal estou querendo fazer uma macro para ler uma celula de segundo em segundo alguém pode me ajudar?

valeu

[Guest --faiangelo --]

resolvido

With Worksheets("Plan1")
        For i = 1 To 60
            tensao = Round(.Cells(i, 2).Value)
            corrente = Round(.Cells(i, 3).Value)
            Segundo= Second(Time)
            While Segundo= Second(Time)
                Label1.Caption = tensao
                Label2.Caption = corrente
            Wend
        Next i
    End With