Run-time error91 VBA

[mengmeng]

Hi,

I wrote a simple script using find method. But as I ran it there occured Run-time error 91. I couldn't figure out the problem. Can anyone give me any suggestions? Many thanks!

The script is about deleting the contents of unwanted items.
Here is the code:
Sub test()
Dim y as Integer

Set curWSht = Workbooks("book.xls").Worksheets("sheet")
With curWSht.Range("f1:f30000")
For y=1 To 6
findString = noisetype(y)
Set c = .Find(findString, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.Rows(c.Row).EntireRow.ClearContents
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Next y
Loop

End With
End Sub

[SammyB]

Hi,

I wrote a simple script using find method. But as I ran it there occured Run-time error 91. I couldn't figure out the problem. Can anyone give me any suggestions? Many thanks!

The script is about deleting the contents of unwanted items.
Here is the code:

Sub test()
Dim y as Integer
 
Set curWSht = Workbooks("book.xls").Worksheets("sheet")
With curWSht.Range("f1:f30000")
For y=1 To 6
findString = noisetype(y)
Set c = .Find(findString, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.Rows(c.Row).EntireRow.ClearContents
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Next y
Loop
 
End With
End Sub
 

Does it work if you take up "Loop" (line 17)?

Sub test()
    Dim y As Integer
 
    Set curWSht = Workbooks("book.xls").Worksheets("sheet")
    With curWSht.Range("f1:f30000")
        For y = 1 To 6
            findString = noisetype(y)
            Set c = .Find(findString, LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    .Rows(c.Row).EntireRow.ClearContents
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        Next y
    End With
End Sub