Below is the code I used to add a comment from text in another cell. I want the comment to pull from a range of cells so it shows up as a list. In the attached file, I want the comment to show I3 & I4 on separate lines. Thanks.
Sub Comment() Sheets("OEM Price Discounted").Select Range("C3").Select Selection.ClearComments With Worksheets("oem price discounted").Range("C3").AddComment .Visible = False .Text Format([i3]) End With Dim xComment As Comment For Each xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next End Sub
Bookmarks