VBA to Find & Delete

[Dave]

would anybody be able to give me code to do the following;

i have a list of destinations A-Z, with 2 columns of data
in columns B & C

i would like to find specific destination names,
forexample 'France,Paris', and then delete the whole row
which that destination is on. I would then like to repeat
this several times

thanks in advance for any help
Dave

 

[Tim Zych]

I have some sample code to do this at www.rubbershoe.com/deleterows.htm

 

[Don Guillett]

a for/each loop should do it

for each c in selection
if c.value="France,Paris" then
next

 

[Dave]

Tim,

this worked for 1 value, how would I make this work for
say 3 different values, I tried adding the following line
for each one but the macro failed

Sub FindNDelete1()
Application.ScreenUpdating = False
Dim lngRow As Long, lngLastRow As Long
lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = lngLastRow To 1 Step -1
If Cells(lngRow, "A").Value = "Germany,Munich" Then
Cells(lngRow, "A").EntireRow.Delete
If Cells(lngRow, "A").Value = "France,Paris" Then
Cells(lngRow, "A").EntireRow.Delete
End If
Next lngRow
Application.ScreenUpdating = True
End Sub

regards
Dave