Sub to write cell contents into its own comment

  • Thread starter Thread starter Max
  • Start date Start date
M

Max

I would select a range of cells, then run the sub to write each cell's
content into its own comment. The sub to do nothing for any cell within the
selection which is blank. For cells which contain formulas, to write the
returned values into the comment. Thanks for insights
 
Try the below

Sub Macro()
On Error Resume Next
For Each cell In Selection
If cell.Text <> "" Then _
cell.AddComment cell.Text
Next
End Sub


If this post helps click Yes
 
Back
Top