переход в определенные ячейки после заполнения предыдущей

[MickMick]

Добрый день. Если можно, подскажите, как сделать, чтобы курсор переходил в определенную ячейку после заполнения предыдущей.
Спасибо

[Serge 007]

Здравствуйте

Как вариант - защита листа

[vikttur]

знать бы алгоритм перебора...
Код в модуль листа

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("B3, D3, D5, D8, E10"), Target) Is Nothing Then

        Select Case Target.Address
            Case "$B$3"
                Range("$D$3").Select
            Case "$D$3"
                Range("$D$5").Select
            Case "$D$5"
                Range("$D$8").Select
            Case "$D$8"
                Range("$E$10").Select
            Case "$E$10"
                MsgBox "надоело! хватит!!!", vbExclamation, "КОНЕЦ РАБОТЫ"
        End Select
    End If
End Sub
Можно адреса поместить в массив и перебирать последовательно.

[MickMick]

Оба варианта интересны.
Спасибо большое