runtime error 13 type mismatch

Hi,

I seem to have some type mismatch in my macro...
The error appears every time i insert or delete a row in the worksheet.

This is the code:

Private Sub TextBox1_Change()
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$25" And Target.Value <> "" Then
Sheets("brief").Range("b15").Value = Now
End If
End Sub

Error is in the line: If Target.Address = "$B$25" And Target.Value <> "" Then

Anyone with a suggestion?