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