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

Оффлайн Visc

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

Оффлайн Администратор

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

Оффлайн Visc

  • Посетитель форума
  • Сообщений: 37