How to import cell comments to normal cell, Copy Comments Automatically using Excel VBA, EXCEL,

Описание: How to import cell comments to normal cell, Copy Comments Automatically using Excel VBA, EXCEL, Microsoft excel, Ms-excel,
///////////////////////////VBA CODE/////////////////////////////////////////

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim commentsrng As Range
Dim copycell As Range
Dim comments As Worksheet
Set comments = ActiveSheet
On Error Resume Next
Set commentsrng = comments.Cells.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If commentsrng Is Nothing Then
MsgBox "Abortiing! no comments exist on worksheet!"
Exit Sub
End If
For Each copycell In commentsrng
If copycell.Offset(0, 4).Value = "" Then
copycell.Offset(0, 4).Value = copycell.Comment.Text
End If
Next copycell
Application.ScreenUpdating = True
End Sub



BY‪@manojkumarexcel‬ , FROM,BHORHA, SIMRI BAKHTIYARPUR,SAHARSA, BIHAR,