Listar los comentarios de las celdas

"Esteban Dido" escribió

Hola,

Tengo en una hoja muchas celdas con comentarios. ¿Es posible hacer que
aparezca una lista con esos comentarios al final de la hoja, es decir un
par
de filas más abajo de la última fila con registros?

Gracias

Hola Esteban

A ver si este código te vale,
En un principio busca los comentarios de la hoja con índice 1 y deposita los
comentarios en la hoja con índice 2 cambia lo que creas oportuno en las
hojas para que sea lo que necesites.

Un saludo
Juan

Inicio Código

Sub Test()
Dim Celda As Comment
Dim i As Long

i = 1
For Each Celda In Worksheets(1).Comments
Worksheets(2).Range("A" & i) = Replace(Celda.Text, vbLf, "")
i = i + 1
Next Celda

End Sub

Fin Código