Add comments from cells below

Brief description:

Adds comments to cell(s) using text from the cell directly underneath the selected cell(s)

Full description:

Inserts a comment into the selected cells using the text below the selected cell.

This procedure can be useful when comments want to be added efficiently. Especially when the comments are already available in the desired order.

Use: Put the desired comments in the cells beneath the cells you want commented. Select the cells to be commented and run the routine. Delete comment text within the cells if desired.

 

 

Code:
Sub AddCommentFromCellBelow()

'Adds comments to cell(s) using text from the cell directly underneath the selected cell(s)
Dim TempString As String
Dim CRange As Range, CCell As Range

Set CRange = Selection

'Move through selected range and add comments to each cell using the text in the cell below
For Each CCell In CRange
TempString = CCell.Offset(1, 0)
If TempString <> "" Then
CCell.AddComment TempString
End If
Next CCell

End Sub