Hi,
The following response pertains to Comments . . NOT Notes.
Please check whether the following solution is helpful:
- In the above screenshot > in the worksheet > there are 3 comments:
i. in cell C4
ii. in cell I11
iii. in cell S26
- Of the 3 comments > 1 comment is resolved, comment in cell S26.
- When the following code is executed > for only resolved comments > cell color changes to green.
Sub Comment_Color()
Dim CommentLoop As CommentThreaded
For Each CommentLoop In ActiveSheet.CommentsThreaded
If CommentLoop.Resolved = True Then
ActiveSheet.Range(CommentLoop.Parent.Address).Interior.Color = VBA.RGB(169, 208, 142)
End If
Next
End Sub
- The code changes cell colour > for resolved comments > in active worksheet.
Solution workbook link: Format_Resolved_Comments.xlsm
- To make it User-friendly > in the Solution workbook > I have assigned the macro > to an icon (top-left corner in the below screenshot).
Please respond if You require further assistance. I will try My best to be of help.
If I was able to help You, please mark My response as answer and helpful.
Thank You!