http://q.hatena.ne.jp/1188873818

エクセルのVBAについての質問です。（完全な初心者で申し訳ありません）
上のURLの回答者の方のVBA（※以下に再掲）をコピーアンドペーストで使わさせていただいていたのですが、
・コメント＝不可視化
にしようと、あれこれいじっていたのですが、うまくできません。

※VBA再掲
Sub hoge()
Dim SelCel As Range '選択セル
Application.DisplayCommentIndicator = xlCommentAndIndicator
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select 'シート内のコメントが設定されているセルを選択
For Each SelCel In Selection '選択セルにてループ
SelCel.Comment.Shape.Select True
With Selection.Font
.Name = "ＭＳ 明朝"
.Size = 10
End With
With Selection
.AutoSize = True
End With
Next
End Sub

どなたか、上のVBAでコメントを不可視化する方法をお教えいただけないでしょうか？
お手数をおかけし申し訳ありません。
何卒ご教授ください。