ошибка - Run-time error '91' Object variable or With block variable not set

[Артур Иваныч]

Здравствуйте всем!
у меня имеется эксель файл(книга), там масса форм и эффектов сделанные на вба!
всё работало нормально и в один момент стало выдавать такую ошибку в одном месте:
Run-time error '91'
Object variable or With block variable not set

указывает на это место:
Private Sub ComboBox1_Change()
Set cell = [c:c].Find(Me.ComboBox1)
Set ra = cell.EntireRow
СЮДА-> Set ro = LastRow(cell).EntireRow

Dim li As Long, le As Long
ListBox2.Clear
For li = ra.Row To ro.Row
If cells(li, 1) <> "" And Not cells(li, 2) Like "*№ ИП*" Then
ListBox2.AddItem ""
ListBox2.List(le, 1) = CStr(cells(li, 3))
ListBox2.List(le, 0) = CStr(cells(li, 2))
ListBox2.List(le, 2) = li
le = le + 1
End If
Next li

End Sub

раньше этой ошибки не было! откудо появилась - ума не приложу(((
хотя при этом функция нормально работает, всё выполняет
но в последний момент выдаёт такую ошибку!
В чём дело?

[SAS888]

1. Если Set cell = [c:c].Find(Me.ComboBox1) Is Nothing, то будет ошибка.
Т.е. на активном листе значение Me.ComboBox1 не найдено. Вообще-то, такую проверку делать никогда не помешает.
2. Попробуйте в этой строке заменить Me.ComboBox1 на Me.ComboBox1.Text

[Артур Иваныч]

Me.ComboBox1.Text
не помогает

а если is Nothing поставить - выводит ошибку!

[SAS888]

Правильно будет так:

Dim cell As Range
Set cell = [c:c].Find(Me.ComboBox1.Text)
If cell Is Nothing Then Exit Sub

Ну, или не Exit Sub, а те Ваши действия, которые необходимо выполнить в случае, если искомый текст не найден.

[Артур Иваныч]

не получается((
может неправильно втыкаю((
хотя подчёркиваю, что прога нормально работала,
потом чёт вот такая ошибка выдаваться стала...

[Артур Иваныч]

нашёл в чём ошибка!
ваще нереально!!!!)))))

[SAS888]

И в чем же?

[Артур Иваныч]

[c:c]
то есть в моей работе [3:3]
в 3ей строке был цвет номером 36(жёлтый)
я изменил цвет и вышла такая ошибка!

[SAS888]

Т.е. Вы ищете даннные из Me.ComboBox1 в 3-ей строке листа и это каким-то образом зависит от цвета заливки ячейки (цвета шрифта)?

[Артур Иваныч]

типо того))