By: Aniruddah Alam

In reply to Dave.

Thank you Dave for your query. In order to replace the Author with Cell value, in the Extract_All_Comments subroutine, you can replace the following line :

Worksheets("Result").Range("C5").Offset(cal, 0).Value = comm_list.Author

with this line:

Worksheets("Result").Range("C5").Offset(cal, 0).Value = wrk_sheet.Range(comm_list.Parent.Address).Value

So the final code will be as below:

Sub Extract_All_Comments()

Dim wrk_sheet As Worksheet
Dim comm_list As Comment
Dim cal As Long

cal = 0

For Each wrk_sheet In ActiveWorkbook.Worksheets
For Each comm_list In wrk_sheet.Comments
Worksheets("Result").Range("B5").Offset(cal, 0).Parent.Hyperlinks.Add _
Anchor:=Worksheets("Result").Range("B5").Offset(cal, 0), _
Address:="", _
SubAddress:="'" & wrk_sheet.Name & "'!" & comm_list.Parent.Address, _
TextToDisplay:="'" & wrk_sheet.Name & "'!" & comm_list.Parent.Address
Worksheets("Result").Range("C5").Offset(cal, 0).Value = wrk_sheet.Range(comm_list.Parent.Address).Value
Worksheets("Result").Range("D5").Offset(cal, 0).Value = comm_list.Text
cal = cal + 1
Next comm_list
Next wrk_sheet
End Sub

Hope, it will solve your problem.
Regards
Aniruddah
Exceldemy