Hi, I got the below code from the internet which I then modified a bit, which opens a comment box. Is it possible to have the box close when clicking on another cell? Thanks
VBA Code:
Sub addNewComment()
Selection.Interior.ColorIndex = 44 'interior color of selected cell
ActiveCell.AddComment _
With ActiveCell.Comment
With .Shape
.AutoShapeType = msoShapeFoldedCorner
.Fill.ForeColor.RGB = RGB(215, 224, 239)
.Width = 150
.Height = 75
With .TextFrame
.Characters.Font.Size = 11
.Characters.Font.Name = "Calibri"
End With
End With
.Visible = True
.Shape.Select True
End With
End Sub