Sub ShowComments()
 Dim c As Comment
 For Each c In ActiveSheet.Comments
  c.Visible = True
 Next c
End Sub