Function Insert_Comment_asper_value()
Dim Comnt As String
Dim Com_Data As String
Dim myData As String
Dim mycomment As String
Dim i As Integer
Comnt = "Comment"
Com_Data = "DATA_COMMENT"
If SheetExists(Comnt) = False Then
MsgBox Comnt & "   Sheet does not exist, Where cell value and Comment is provided in Column A and B", vbInformation
Exit Function
End If
If SheetExists(Comnt) = False Then
MsgBox Com_Data & "   Sheet does not exist, Where need to put Comment from  Sheet:- " & Comnt & "  , vbInformation"
Exit Function
End If

'Put comment as per cell value sheet 2 consist of of cell value and comment column A and B
 Sheets(Comnt).Select
 Range("A2").Select
 Do
    If IsEmpty(ActiveCell) = False Then
        myData = ActiveCell.Value
        mycomment = ActiveCell.Offset(0, 1).Value
        ActiveCell.Offset(1, 0).Select
        Sheets(Com_Data).Select
        Set Rng = Cells.Find(What:=myData, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If Not Rng Is Nothing Then
            Rng.Activate
            Startcell = ActiveCell.Address
            Do
                ActiveCell.ClearComments
                ActiveCell.AddComment
                ActiveCell.Comment.Text Text:=mycomment
                 Cells.FindNext(After:=ActiveCell).Activate
                 If Startcell = ActiveCell.Address Then Exit Do
                 i = i + 1
                 Application.StatusBar = "Total Count ..... " & i
            Loop
         End If
         Sheets(Comnt).Select
    End If
 Loop Until IsEmpty(ActiveCell) = True
 Application.StatusBar = False
End Function
Function Insert_Comments_inSelection()
    Dim sCmt As String
    Dim rCell As Range
    sCmt = InputBox(Prompt:="Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection", Title:="Comment to Add")
    If sCmt = "" Then
        MsgBox "No comment added"
    Else
        For Each rCell In Selection
            With rCell
                .ClearComments
                .AddComment
                .Comment.Text Text:=sCmt
            End With
            i = i + 1
            Application.StatusBar = "Total Count ..... " & i
        Next
    End If
    Set rCell = Nothing
    Application.StatusBar = False
End Function
Function Remove_Comments_FromSelection()
    Dim rCell As Range
        For Each rCell In Selection
            rCell.ClearComments
            i = i + 1
            Application.StatusBar = "Total Count ..... " & i
        Next
    Set rCell = Nothing
    Application.StatusBar = False
End Function