Public Sub Koment()
     Range("A1").Name = "Koment"
         If Range("Koment").Comment Is Nothing Then
             Range("Koment").AddComment "Koment " & Date
         End If
End Sub