VBA Code to Print Comments in Excel

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


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment