Макрос на отображение примечения - VBA

Формулировка задачи:

Помогите, как написать событие листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

на отображение и скрытие Примечания при перемещении (клавиатурой) активной ячейки? (если Активная - отобразить Примечание, если не Активная - скрыть)

Решение задачи: «Макрос на отображение примечения»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.DisplayCommentIndicator = xlNoIndicator
    
    If Not Target.Comment Is Nothing Then Target.Comment.Visible = True
End Sub
                        