Pasting a Comment into Your Worksheet

@RICK
Some notes re. your macro Comments2Cellloop:
1. You might want to add this statement: Dim cell As Range
2. Both of these statements can be removed: On Error GoTo 0
or they could be replaced with this statement: On Error GoTo Proceed
3. Both of these remarks can be removed: 'Set cmt = ActiveCell.Comment
4. Consider replacing this statement: .Text Text:=cell.Formula
with this statement: .Text Text:=cell.Value
If the cell has a formula, cell.Formula returns the formula instead of its result.

@beepee
I'm using Excel 365. The Tip's 1st solution works for me, not the 2nd. Perhaps the Tip has their explanation reversed.
To determine your version of Excel, click File > Account and review Product Information at the top-right; mine says Microsoft 365. Also review text associated with About Excel near the bottom-right; mine says Version 2604, which refers to the April 2026 update.

I USE THIS MACRO
Sub Comments2Cellloop()
Dim cmt As comment
Dim which As String

which = InputBox("2Cell = Y ")
If UCase(which) = "Y" Then
On Error GoTo 0
For Each cell In Selection
cell.Value = cell.comment.Text
Next
Else
On Error GoTo 0
'Set cmt = ActiveCell.Comment
For Each cell In Selection
'Set cmt = ActiveCell.Comment
If cell.comment Is Nothing Then
cell.AddComment
With cell.comment
.Text Text:=cell.Formula
.Visible = False
End With
End If
Next cell
End If
Procend:
End Sub

I am curious about Excel versions!
This tip offers two variations. One for Excel 2007-2013. The other for 2016-2024, etc.
I am using 'Microsoft Office LTSC Professional Plus 2021'. The Excel incuded in this, needs the first of the two solutions!!
When I purchased '...2021' I had the expectation that I would be getting a more up to date version of each product: Word, Excel, Access, etc. than what I had in Office 2016.
Is Microsoft being a bit unfair?

My Excel Toolbox includes the following function to return the text of a comment associated with a Target cell:
    =CommentText(Target, [SkipAuthor])
This works with either a legacy unthreaded comment (Note) or a threaded Comment. If SkipAuthor is FALSE (default), the comment's author will be included in the returned text (if available); otherwise, the comment's author will not be included (if possible). If Target is a multi-cell range, its top-left cell applies. If Target's cell does not have a comment, #VALUE! (Error 2015) will be returned.
My Excel Toolbox also includes the following dynamic array function:
    =ListComments([AllSheets], [Threaded], [SkipHeader])
This function returns one row for each comment in either the current sheet or all sheets in the workbook with the following columns: Worksheet (if AllSheets is TRUE), Cell, Author, Comment (text). It works with threaded or unthreaded comments.
My Excel Toolbox also includes the following macros for legacy unthreaded comments (Notes):
CommentAuthors -- Remove author's name
FormatComments -- Format text, shape, color, and shadow
MoveComments -- Reposition near host cell
ResizeComments -- Resize to fit text
UpdateComments -- Run each of the macros above
CopyToComments -- Copy source cell values to target cell comments
CommentDisplayMode -- Cycle display mode (none, indicator, comment)
CommentHyperlink -- Attach a hyperlink to the active cell's comment
PasteImageInComment -- Paste background image from clipboard or file
See https://sites.google.com/view/MyExcelToolbox/