Change xlWhole argument to xlPart
Sub Cue2()
Dim rFind As Range
Application.ScreenUpdating = False
With Sheets("System").Columns(3)
Set rFind = .Find(What:="Cue", LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then
Do
rFind.EntireRow.Delete
Set rFind = .Find(What:="Cue", LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
Loop Until rFind Is Nothing
End If
End With
Application.ScreenUpdating = True
End Sub