No se a qué llamas leyenda que figura en una celda.
Si se trata del valor o contenido de la celda, las siguientes instrucciones copiarán ese dato en un comentario de otra hoja. Si solo se trata de modificar el texto del comentario que ya tiene la celda omití la instrucción AddComment.
Debes ajustar el nombre de la hoja y la celda donde estará el comentario.
Sub comenta()
'x Elsamatilde
'
leyenda = ActiveCell.Text
With Sheets("Resumen").[B3]
.AddComment
.Comment.Text Text:=leyenda
End With
End Sub
La macro se coloca en un módulo del Editor (ingresa con ALT + F11). Para ejecutarla hay varias opciones que las tengo explicadas en la sección Macros de mi sitio.