its for deleting rows with that text in the column. it looks like this
Dim rng As Range, rng1 As Range
Range("J:J").AutoFilter _
Field:=1, Criteria1:="not in system"
On Error Resume Next
Set rng1 = Range("J2:J65536").SpecialCells(xlVisible)
On Error GoTo 0
If Not rng1 Is Nothing Then
rng1.EntireRow.Delete
End If
Range("J1").CurrentRegion.AutoFilter

So, will this work?

Dim rng As Range, rng1 As Range
Range("J:J").AutoFilter _
Field:=1, Criteria1:="=not in system", _
Operator:=xlOr, _
Criteria2:="=NOT OKC"
On Error Resume Next
Set rng1 = Range("J2:J65536").SpecialCells(xlVisible)
On Error GoTo 0
If Not rng1 Is Nothing Then
rng1.EntireRow.Delete
End If
Range("J1").CurrentRegion.AutoFilter

or do I need a Field:=2 before the second criteri

--
DK
-----------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...fo&userid=1451
View this thread: http://www.excelforum.com/showthread.php?threadid=27563