
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Text = "" Then
Cells(Target.Row, Target.Column).ClearComments
Exit Sub
End If
cmm = "Doppio clik archivi i Dati compresi nell'intervallo X"
Cells(Target.Row, Target.Column).ClearComments
Cells(Target.Row, Target.Column).AddComment
Cells(Target.Row, Target.Column).Comment.Visible = False
Cells(Target.Row, Target.Column).Comment.Text Text:=cmm
End If
End Sub |
