Add comments from cells below
Brief description:
Full description:
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