Well i tried that and it work great thanks again.

I have another question. I want to adapt the code to delete rows tha
have the text "No Impact" in column 12 (Column L). This is what
have so far but i get the same error as before.

Can you take a quick peek and tell me where i am going wrong. Thank
again man this is such a great help.

--------------------------------------------
Range("A1").EntireColumn.Insert
Range("A1").FormulaR1C1 = _
"=IF(RC[12])=""No Impact""" _
& """), ""Keep"",""Trash""),""Keep"")"
myRows = ActiveSheet.UsedRange.Rows.Count
Range("A1").Copy Range("A1:A" & myRows)
With Range(Range("A1"), Range("A1").End(xlDown))
.Copy
.PasteSpecial Paste:=xlValues
End With
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
Columns("A:A").Find(What:="Trash", After:=Range("A1")).Select
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
-------------------------------------------------

--
Message posted from http://www.ExcelForum.com