help me again i type in the code

Sub User_Delete()

Dim shDet As Worksheet
Dim rngUN As Range
Dim FndRng As Range

If Target.Address = "$B$2" Then
Set shDet = Book1.Parent.Sheets("user details")
Set rngUN = shDet.Range("a2", shDet.Range("A65536").End(xlUp))

Set FndRng = rngUN.Find(Target.Value, , , xlWhole)

If FndRng Is Nothing Then
MsgBox "User " & Target.Value & " not found"
Else
FndRng.EntireRow.Delete
End If
End If

End Sub


Then it says there is an error with If target.Address= "$b$2" Then


HHHHHHHEEEEEEELLLPPPP MEEEEE I'M A NEWBIE

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements