Sub AutoFitCommentsSelection()
 Dim c As Range
 Dim myRange As Range

 If TypeName(Selection) <> "Range" Then Exit Sub  

 Set myRange = Selection
 For Each c In myRange.Cells
  With c.Comment
   .Shape.TextFrame.AutoSize = True
  End With
 Next c
 myRange.Select
End Sub