Excel VBA Макросы. Не получается перейти на заданный лист. Ошибка 9: Subscript out of range.

[Посетитель]

Почему происходит ошибка в этом коде:?
Sub Макрос()
    Dim ИмяЛиста As String
    ИмяЛиста = "Лист1"
    Worksheets("ИмяЛиста").Select
End Sub

[Администратор]

Переменную не нужно заключать в кавычки. Правильно так:
Worksheets(ИмяЛиста).Select

[Посетитель]

спасибо