استرجاع كومنت خلايا الاكسل في عمود بجانب الخلايا
-----------------
Function GetComment(cell As Range) As String
' Check if the cell has a comment
If Not cell.Comment Is Nothing Then
' Return the comment text
GetComment = cell.Comment.Text
Else
' Return an empty string if there is no comment
GetComment = ""
End If
End Function
-------------