Using the result of ADDRESS() function as a range for VBA function

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

Sub GetComment()
Dim r As Range

Application.ScreenUpdating = False

For Each r In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row).Cells
    If Not Range(r.Value).Comment Is Nothing Then
        With r.Offset(, 1)
            .ClearComments
            .AddComment (Range(r.Value).Comment.Text)
            .Comment.Visible = False
        End With
    End If
Next r

Application.ScreenUpdating = True

End Sub

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button