InStr macro takes forever.

Is there any options better than InStr. It takes forever to do. All It is doing is looking in E for the phrase and then copying the rows and pasting.

Please Login or Register  to view this content.

Sub TopErrorACSI()
Dim i As Long, c As Range
Dim rng As Range

Set rng = Worksheets("PasteValues").Range("E:E")

For Each c In rng
If InStr(c, "ACSI") > 0 Then
c.Offset(1, 1).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("B8")
c.Offset(3, 1).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("B9")
c.Offset(4, 1).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("B10")

c.Offset.Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("A7")
c.Offset(1, 0).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("A8")
c.Offset(2, 0).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("A9")
c.Offset(3, 0).Copy
c.Worksheet.Paste Destination:=Worksheets("Top Errors").Range("A10")


End If
Next c
End Sub

Try this:

Please Login or Register  to view this content.

Could you explain what "c.Worksheet" means in

Please Login or Register  to view this content.

and what is this suppose to copy?

Please Login or Register  to view this content.

Is the code meant to overwrite everytime it finds "ASCI"? All your paste ranges are hard coded.
Maybe explain what you want to achieve.

Thanks! When I have a moment I will try out your code in full, but you said something that really helped in the short term. Since I know the approx range of the search, I can really narrow it down and not make it look through the entire column. So instead of "M:N", i did "M1:N50" and that cut a lot of time. Thank you again

overwrite? No, I copy from one sheet to another. Then repeat but the locating i am pasting too isn't the same.

Oh ok. Yeah there is only ever one match.

Gotcha, Thanks!