Haciendo la búsqueda me encontré con el siguiente código que me pareció muy práctico, y espero que les sirva, que permite insertar comentarios con solo hacer doble click en la celda. Me gustaría que alguien le añada algunas mejoras para que pueda cumplir con la función que les de autoregulación que les expliqué:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
On Error Resume Next
Dim cmtText As String
Dim inputText As String
If Target.Comment Is Nothing Then
cmtText = InputBox("Enter info:", "Comment Info")
If cmtText = "" Then Exit Sub
Target.AddComment Text:=cmtText
Target.Comment.Visible = True
Target.Comment.Shape.TextFrame.AutoSize = True 'Remove if you want to size it yourself
Else
If Target.Comment.Text <> "" Then
inputText = InputBox("Enter info:", "Comment Info")
If inputText = "" Then Exit Sub
cmtText = Target.Comment.Text & Chr(10) & inputText
Else
cmtText = InputBox("Enter info:", "Comment Info")
End If
Target.ClearComments
Target.AddComment Text:=cmtText
Target.Comment.Visible = True
Target.Comment.Shape.TextFrame.AutoSize = True 'Remove if you want to size it yourself
End If
Cancel = True 'Remove this if you want to enter text in the cell after you add the comment
End Sub
Gracias a todos
![sonriente](http://static.forosdelweb.com/fdwtheme/images/smilies/smile.png)