VBA to close comment box

[Shadkng]

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

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

 

[Shadkng]

Can you tell me where put the above code? Does it go in a module or in the sheet code? Thanks

HI, this works well. Thanks