I'll explain what I'm trying to do using a simple example. Let's say I have a 100 records in my excel sheet. In, for example, 10 of those records is a specific word. Let's say "Dean". What I would like is that every record (not just the cell) that contains the word "Dean" is deleted using a Marco. So that would leave me with only 90 records as end result. Thx

Hi Are these records in one column and do you want to delete the records and leave them blank or move the other records up, so there is no blanks rows.

No in different column's and indeed I want to shift the cells up so there are no blank rows.

Hi Im no expert with Excel, but will this help Just select all the cells and run the macro. Try it on a dummy spreadsheet first, so as not to upset your records. Hope this helps ----------- Option Explicit ' Delete "Dean" from Selected Range. Sub DelDeans() Dim Row As Integer Dim Max As Integer Dim Record As Range Max = Selection.Count Set Record = Selection Row = 1 Do If InStr(LCase$(Record.Cells(Row)), "dean") Then Record.Cells(Row).EntireRow.Delete End If Row = Row + 1 Loop Until Row > Max End Sub