Hi Eddie,

Am Tue, 21 Jun 2011 13:15:38 -0700 (PDT) schrieb webels:

I wish however to find all values except
the word neg and the number 0 so there could be values such as <10.
Basically all records which do not contain 0 or neg in column J.

then try this:
Rows("1:1").Insert Shift:=xlDown
Range("A1") = "Test1"
Range("A1").AutoFill Destination:=Range("A1:AL1"), _
Type:=xlFillDefault
Range("AR1") = "Test10"
Range("AR2") = "<0"
Range("AS1") = "Test10"
Range("AS2") = "<neg"

Columns("J:J").Select
Range("J1:J500").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("AR1:AS2"), Unique:=False


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2