Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, y As Long
If Target.Cells.Count > 1 Then Exit Sub
Cells.ClearComments
'Application.ScreenUpdating = False
If Target.Value = "" Then Exit Sub
If Target.Column = 4 Or Target.Column = 5 Then
'If Target.Cells.Count = 1 Then
    With Target
        .AddComment
        .Comment.Text Text:=Target.Value
        .Comment.Shape.TextFrame.AutoSize = True
        If .Comment.Shape.Width > 250 Then
            y = .Comment.Shape.Width * .Comment.Shape.Height
            .Comment.Shape.Width = 150
            .Comment.Shape.Height = (y / 200) * 1.6
        End If
    End With
End If
'Application.ScreenUpdating = True
End Sub