エクセルコメント、一気に入れたい。

ちまちまコメント入れたり編集したりするのって、大変。。。

必要に迫られて作成。

＜コード＞

Sub コメントに置き換え()
Dim i As Long
Dim cl1, cl2 As String 'cl1＝コメント場所 、cl2＝コメント内容

For i = 2 To Range("A65536").End(xlUp).Row
　　With Cells(i, 1)
　　　cl1 = .Value
　　　cl2 = .Offset(, 1).Value
　　　End With

　'コメント編集（リセットと書き換え）
　With Range(cl1)
　　On Error Resume Next
　　　.Comment.Delete
　　On Error GoTo 0
　　　.AddComment (cl2)

　' コメントのサイズ自動設定
　With .Comment.Shape
.　　TextFrame.AutoSize = True
　End With

　End With
　Next
End Sub

 ＜イメージ図＞