Sub SetCommentHeight()
 Dim c As Comment
 For Each c In ActiveSheet.Comments
  c.Shape.Height = 20
 Next c
End Sub