Insert a comment for a range in an Excel Workbook

Public Sub CellComment()

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rg As Excel.Range
 
Set xl = Application
Set wb = ThisWorkbook
Set ws = wb.Sheets(1)

Set rg = ws.Range(ws.Cells(3, 3), ws.Cells(3, 3))
rg.AddComment.Text "Comment Added for Posterity"
Set rg = Nothing

Set ws = Nothing
Set wb = Nothing
Set xl = Nothing

End Sub