Eduard Caballero respondió:
Acá tienes un ejemplo Sub cambia() i = 1 For i = 1 To 6 Sheets(1).Activate Range("f2").Select Range("f2") = Cells(i, 2) If Application.Wait(Now + TimeValue("0:00:02")) Then GoTo x x: Next i End Sub Esto te muestra en la celda f2 los valores que...