Adding comments

[blackice]

im trying to add a comment after i enter some data, but the formula that im using adds the coment to the bottom cell. pls tell me what im doing wrong.

Private Sub Worksheet_Change(ByVal Target As Range) 
ActiveCell.AddComment
ActiveCell.comment.Visible = False
ActiveCell.comment.Text Text:="Price as of:" & Now
End Sub

[Bob Phillips]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.AddComment
Target.comment.Visible = False
Target.comment.Text Text:="Price as of:" & Now
End Sub