Sub FormulaToComment()

'

'
For Each cell In Selection
If Len(cell.Formula) 0 Then
If cell.Comment Is Nothing Then
cell.AddComment
End If
cell.Comment.Text Text:=cell.Formula
End If
Next cell
End Sub

"Max" wrote:

I'd select a formula range, eg select B2:C10, and would like to run a sub to
write all formula results into each cell's comment. Thanks.

Rgds
Max