how to pause the for loop

[prakash_moturu]

hi,
i wrote a code to get the 5 row and 5 column values by using the fallowing code.but i want to pause after one row is over then call next row after 15 seconds.

Private Sub CommandButton1_Click()
Dim val
For i = 1 To 5
For j = 1 To 5
val = Sheet1.Cells(i, j).Value

Next
Next

End Sub

where can i write the pause code after one row is over ?

please guide me.

 

[VoG]

Try like this

Private Sub CommandButton1_Click()
Dim val
For i = 1 To 5
    For j = 1 To 5
        val = Sheet1.Cells(i, j).Value
    Next
    Application.Wait Now + TimeSerial(0, 0, 15)
Next
End Sub

 

[prakash_moturu]

gr8 its working fine