Переход на разные листы по условию - VB

Формулировка задачи:

Помогите пожалуйста!!!!! Как создать макрос, чтобы пользователь через данный макрос, если он правильный переходил на один лист Excel, если ответ не верный на другой???

Решение задачи: «Переход на разные листы по условию»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_Open()
If InputBox("vopros") = "otvet" Then
Sheets("Лист2").Select
Else
Sheets("Лист3").Select
End If
End Sub
                        