Deletion macro

[rooster06]

Hello forum

I'm new here s apologies f I don't get his right, I have a macro code that deletes rows if a cell in column A contains "/C/, but runs a little slow, the code is below. Would anybody be able to improve on this please

Thanks in advance

SubCat()

Application.ScreenUpdating= False
Application.EnableEvents= False
Application.DisplayAlerts= False
Dim c As Range
Dim SearchString

Set SearchString = Range("A1",ActiveSheet.Range("A85000").End(xlUp))
Do
Set c = SearchString.Find("/C/", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing
MsgBox("Finished")

Application.ScreenUpdating= True
Application.EnableEvents= True
Application.DisplayAlerts= True

EndSub


Rooster

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub rooster06()
   With ActiveSheet
      .Range("A1").AutoFilter 1, "*/C/*"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[rooster05]

Fluff,

Thanks that's a lot lot quicker, just a quick question what do the * mean in the code

 

[Fluff]

You're welcome & thanks for the feedback
The * are wildcards, so the filter is looking for cells that contain /C/ amongst other tex, rather than cells that only have /C/ in them