Можно одновременно, на Листе использовать такую запись?

[valerij]

Можно одновременно, на Листе использовать такую запись?

Private Sub Worksheet_Activate()
    With Application
        .EnableEvents = False
    Vn
    Vv
                .OnKey "{PGDN}", "Vn"
            .OnKey "{PGUP}", "Vv"
        .EnableEvents = True
    End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  ' Здесь код
End Sub

[IgorGO]

вопрос, я так понимаю, можно ли одновременно обьявить две приведенных процедуры? ответ - можно.
а разве что-то не получается?
вижу Private Sub Worksheet_Change(ByVal Target As Excel.Range) обычно обьявляется, как Private Sub Worksheet_Change(ByVal Target As Range). если есть сложности, возможно они отмечены красным.

[valerij]

Сообщение от IgorGO

а разве что-то не получается?

Да, почему -то не корректно стал работать модуль

.OnKey "{PGDN}", "Vn"
            .OnKey "{PGUP}", "Vv"