Adding comment vba Excel 2010

Vote count:

0

I have this:

    Private Sub Worksheet_Change(ByVal Target As Range)
      If NumToCol(Target.Column) = "E" And Target.Row > 4 Then
        Target.ClearComments
        Select Case Target.Value
          Case ThisWorkbook.Sheets("Head").Range("N5").Value '1
            Message = ThisWorkbook.Sheets("Head").Range("O5").Value 
            Target.AddComment (Message)
          Case ThisWorkbook.Sheets("Head").Range("N6").Value '3
            Message = (ThisWorkbook.Sheets("Head").Range("O6").Value) 
            Target.AddComment.Text Text:=Message
          Case ThisWorkbook.Sheets("Head").Range("N7").Value '4
            Message = (ThisWorkbook.Sheets("Head").Range("O7").Value)  
            Target.AddComment Message
        End Select
      End If
    End Sub

I still receiving the message in the 3 cases: Run-time error '1004' Application-defined or object-defined

I don't know to solve...

asked 33 secs ago

chepe lucho

706

Adding comment vba Excel 2010