Использование кода с тем же именем в модуле

Question

Private Sub Workbook_Open()
    Sheets("Guide").Select
    ActiveSheet.Range("A9").Select
End Sub

Private Sub Workbook_Open()
Application.OnKey "%{F11}", "DisableAltF11"
Application.OnKey "%{F8}", "DisableAltF8"
End Sub

У меня есть эти два кода с одинаковым именем, из-за которого код не работает должным образом. На что я могу изменить имя, чтобы оно пошло в потоке Спасибо

Answer 1

Private Sub Workbook_Open()
    Sheets("Guide").Select
    ActiveSheet.Range("A9").Select
    Application.OnKey "%{F11}", "DisableAltF11"
    Application.OnKey "%{F8}", "DisableAltF8"
End Sub

Просто объедините эти два сабвуфера в один.