VBA button to put value of cells in another cell

[CraigG]

In Sheet1 I have values in A2:A91.

In Sheet2 I want to add VBA code which when run shows the value of Sheet1.A2 in Sheet2.B2, but when run a second time it shows the value of Sheet1.A3 in Sheet2.B2, then when run a third time it shows the value of Sheet1.A4 in Sheet2.B2, etc, etc, right up to until Sheet1.A91 has been displayed.

Anyone any ideas?

Thanks in advance.

 

[JoeMo]

Try this:

Sub FromSheet1ToSheet2()
Dim R As Range
Static Cycle As Long
Set R = Sheet1.Range("A2:A91")
Cycle = Cycle + 1
If Cycle > R.Rows.Count Then Cycle = 0
With Sheet2.Range("B2")
    .Value = R.Cells(Cycle, 1).Value
End With
End Sub

 

[CraigG]

Perfect, thank you.

 

[JoeMo]

Perfect, thank you.

you are welcome -thanks for the reply.