Question : Remove data row

Hi Experts,

I need Experts help write a script to remove the row in Reconcile sheet if the  Column_D cell has “cue” word. Hope Experts can help me to create this feature. Attached the workbook for Experts perusal.
Attachments:
 
RemoveRow.xls (135 KB)  (File Type Details) 
xls
 

Answer : Remove data row

If they're all in D.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub x()
  
Dim rFind As Range

Application.ScreenUpdating = False

With Sheets("Reconcile").Columns(4)
    Set rFind = .Find(What:="Cue", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rFind Is Nothing Then
        Do
            rFind.EntireRow.Delete
            Set rFind = .Find(What:="Cue", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
        Loop Until rFind Is Nothing
    End If
End With
     
Application.ScreenUpdating = True
     
End Sub
Random Solutions  
 
programming4us programming4us