Do A MATCH

On Error Resume Next
ans =
Application.Match(Range("A2").Value,Worksheets("Sh eet1").Range("B2:B50"),0)
On Error Goto 0
If ans 0 Then
Rows(2).Delete
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)


"STEVEB" wrote in
message ...

Hi

Does anyone have any suggestions for a Macro that would delete an
entire row in Sheet 2 if the value in column A Sheet 2 is equal to any
cell within the range of B2 to B50 on Sheet 1.

Thanks for your help!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=390607