Как реализовать перебор ячеек в диапазоне?

[a1bert]

Короче, на форме есть кнопка, щелкая по которой происходило бы выделение(выбор select) следующей ячейки (всегда одной), когда дошли до последней в диапазоне опять на верхнюю переходили бы. Чего только не пробовал все в куче собрал, разные тут методы. Смысл в том чтобы просто бегать по диапазону по типу spinbutton, помогите братья кодеры!

Private Sub CommandButton5_Click()

'Dim a As Date
'Dim i As Integer
Dim cell As Range

'ActiveSheet.Cells(7, 2).Select
'Set cell = ActiveSheet.Range("b1")
'a = Date
'i = 0
'ActiveSheet.Cells(7, 2).Select
'i = 7
'For i = 6 To 37
'ActiveSheet.Cells(i, 2).Select
'i = i + 1

'ActiveSheet.Cells(7 + i, 2).Select
'Next i
'ActiveSheet.Range("b6").End(xlDown ).Value = Date
'ActiveSheet.Range("b6").End(xlUp). Select


'LR = Cells(Rows.Count, 2).End(xlUp).Row

'Range("B7").Select

'Range("B7").Offset(0, 0).Select

'i = i + 1
'Range("B7").Offset(i, 0).Select

For Each cell In [b7:b37]
Next


End Sub

[EducatedFool]

Private Sub CommandButton5_Click()
  Activecell.Offset(1).Select
  if Activecell.row>37 then Range("B7").Select
End Sub

[a1bert]

EducatedFool спасибо друг отлично работает))) и почему я до этого сам не дошел))) наверное опыта мало еще