Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DernLign As Integer
DernLign = Range("F" & Rows.Count).End(xlUp).Row
Range("E9:Z" & DernLign).Cells.Interior.ColorIndex = xlNone
Dim cbag As Variant
cbag = Range("H16")
If Not Application.Intersect(Target(1, 1), Range("E9:Z" & DernLign)) Is Nothing Then
Application.Intersect(Target(1, 1).EntireRow, Range("E9:Z" & DernLign)).Interior.ColorIndex = 34
Range("C9:Z" & DernLign).ClearComments
With Selection
.AddComment
.Comment.Visible = True
.Comment.Text Text:=Range(Split(Selection.Address, "$")(1) & "7") & " : " & Chr(10) & Range("F" & Split(Selection.Address, "$")(2))
If Len(Range(Split(Selection.Address, "$")(1) & "7")) > 0 Then
With .Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(Range(Split(Selection.Address, "$")(1) & "7")) + 3).Font
.Name = "Matura MT Script Capitals"
.Bold = True
.Size = 20
End With
End If
.Comment.Shape.Select
End With
Selection.AutoSize = True
Target.Select
End If
End Sub