First of all let me admit to knowing very little VBA. I found the following code on another site (cudos to Colin Legg on Xtreme Visual Basic Talk | Forum & Discussions) This will delete rows in a spreadsheet based on the matching the contents of column to a pre defined array. What I would like to be able to do is specify a range on a different sheet in the same workbook. If the data is in that range delete the row. Here is what I have now (which works very well):

Sub Example1()

Dim rngFound As Range, rngToDelete As Range
Dim strFirstAddress As String
Dim varList As Variant
Dim lngCounter As Long

Application.ScreenUpdating = False

varList = VBA.Array("Here", "There", "Everywhere")

For lngCounter = LBound(varList) To UBound(varList)

With Sheet1.Range("A:A")
Set rngFound = .Find( _
What:=varList(lngCounter), _
Lookat:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True _

If Not rngFound Is Nothing Then
If rngToDelete Is Nothing Then
Set rngToDelete = rngFound
Set rngToDelete = Application.Union(rngToDelete, rngFound)
End If

strFirstAddress = rngFound.Address
Set rngFound = .FindNext(After:=rngFound)

Do Until rngFound.Address = strFirstAddress
Set rngToDelete = Application.Union(rngToDelete, rngFound)
Set rngFound = .FindNext(After:=rngFound)
End If
End With
Next lngCounter

If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete

Application.ScreenUpdating = True

End Sub
Thanks in advance for the help.