Моя пользовательская форма имеет 8 комбинированных списков и 8 соответствующих текстовых полей. Это начало кода, который используется для скрытия остальных 7 комбо-боксов после помещения данных ячейки в соответствующее текстовое поле. Форма будет помещать CB непосредственно поверх TB, чтобы пользователи не могли видеть CB, но могли видеть и редактировать TB. (Весь этот код позже.) Моя проблема заключается в следующем: если я просматриваю Sheet4 (Sheets "Info"), код работает отлично; Если я запускаю его, пока я нахожусь на любом другом листе, я получаю
Ошибка времени выполнения '1004': сбой метода 'Range' объекта'_Worksheet '
Когда я нажимаю «Отладка», последняя вставленная строка моего кода выделяется желтым цветом.
Private Sub ComboBox1_Click()
Dim ws As Worksheet
Dim x As Long
Dim fCell, cl, rng, lrow As Range
Dim sFind As String
Set ws = ThisWorkbook.Sheets("Info")
Set rng = Sheet4.Range("A1", Range("A65536").End(xlUp))
Может кто-нибудь сказать мне, что я делаю неправильно? Я нигде не использовал активный лист.