Question - Possible or Not?

[Stormseed]

Sir / Madam

Everytime I run the macro on my worksheet - it should lookout for a set of words which are "pre-defined" in the list and it finds them and deletes them from the list (provided the macro is run in order to delimit a particular list). Is this possible?

Kindly help...and ur help is very much appreciated

 

[tmcfadden]

How's this work for you?

Sub Delimit()
Dim rngList As Range, rngDelimit As Range, rngFound As Range

Set rngList = Sheet1.Range("C12:C23")
Set rngDelimit = Sheet1.Range("E13:E14")

Set rngFound = rngList.Find(rngDelimit.Cells(1))

For Each cell In rngDelimit
    If (cell.Value = "") Then Exit For
    While (TypeName(rngFound) <> "Nothing")
        rngFound.Delete xlShiftUp
    
        Set rngFound = rngList.Find(cell.Value)
    Wend
Next cell

End Sub

This assumes that you have:

• A range of cells that define the list
  A range of cells that define the words that you want to delete

-Tim[/list]