How to loop back to the first value?

[Mangolili]

I haven't write the code for this yet. But I want to know how do I go about the situation below:

I have a button that when you click on the button, it will show the next value. At the end of the click when there is no more value, I want to message box that "This is the last value". After that, it will loop back to the first value.

Any suggestions would be great. Thanks.

 

[VoG]

Maybe something like this

Private Sub CommandButton1_Click()
Static iRow As Long
iRow = iRow + 1
If Range("A" & iRow).Value = "" Then iRow = 1
MsgBox "Value is " & Range("A" & iRow).Value, vbInformation
End Sub

 

[Mangolili]

Thank you so much, Peter. I will test out the code later.