VBA code that you can use to print comments in Excel
VBA Code:
Sub PrintComments()
Dim ws As Worksheet
Dim rng As Range
Dim cmt As Comment
Dim cell As Range
' Set the worksheet where you want to print comments
Set ws = ThisWorkbook.Worksheets("Sheet1") ' Change "Sheet1" to the desired worksheet name
' Set the range where you want to print comments
Set rng = ws.UsedRange
' Loop through each cell in the range
For Each cell In rng
If Not cell.Comment Is Nothing Then
Set cmt = cell.Comment
' Print the cell address, comment author, and comment text
Debug.Print "Cell: " & cell.Address & vbTab & _
"Author: " & cmt.Author & vbTab & _
"Comment: " & cmt.Text
End If
Next cell
' Inform the user that the comments have been printed
MsgBox "Comments have been printed in the Immediate window!"
End Sub
Join Our Telegram Group
Join Our WhatsApp Group
