Példa az A1 cellának van-e megjegyzése  

    Set Kom = Range("A1").Comment
    If Not Kom Is Nothing Then
      Msgbox "Van megjegyzés"

    Else Msgbox "Nincs megjegyzés"
    End If