Obj Var или с блоком Var Не задано

Question

Должно быть, я исчерпал все свои вопросы за 2 дня. Но вот еще один.

У меня есть код, с которым мне кто-то помог, и я получаю ошибку Object Variable.

Dim firstAddress As String 
Dim c As Range 
Dim rngToDelete As Range 

With Worksheets(5).Range("c1:c1500") 
    Set c = .Find("-", LookIn:=xlValues) 
    If Not c Is Nothing Then 
     firstAddress = c.Address 
     Do 
      If rngToDelete Is Nothing Then 
       Set rngToDelete = c 
      Else 
       Set rngToDelete = Union(rngToDelete, c) 
      End If 
      Set c = .FindNext(c) 
      If c Is Nothing Then Exit Do 
     Loop While c.Address <> firstAddress 
    End If 
End With 

If rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete 

Он блокирует в последнюю rngToDelete.EntireRow.Delete

Не знаю, почему, может только думать, что, возможно, придется что-то делать с тем, что нет «-» было найдено.

Помогите пожалуйста.

Answer 1

Вы должны полностью изменить логику:

If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete