Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Static pl_sav As Range
Dim pl As Range
If Not pl_sav Is Nothing Then pl_sav.Comment.Delete
Set pl_sav = Nothing
Set pl = Intersect(Target, Range("TAB_CONF[Observations]"))
If pl.Select Then
If Not pl Is Nothing Then
Set pl = pl(1)
If pl.Text <> "" Then
If Not Target.Comment Is Nothing Then pl.Comment.Delete
pl.AddComment Target.Value
With Target.Comment
.Visible = True
.Shape.Top = Target.Top + 35
.Shape.Left = Target.Left - 530
.Shape.OLEFormat.Object.Font.Name = "Century Gothic"
.Shape.OLEFormat.Object.Font.Bold = False
.Shape.OLEFormat.Object.Font.Size = 18
.Shape.OLEFormat.Object.Font.ColorIndex = 0
.Shape.Fill.ForeColor.RGB = RGB(255, 240, 240)
.Shape.Height = 480
.Shape.Width = 820
.Shape.Line.Weight = 1.5
.Shape.Line.DashStyle = msoLineLongDash
.Shape.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
Set pl_sav = pl
End If
End If
End If
End Sub