Comentarios en celdas

hola, Pedro !

... tengo una hoja de excel que, en algunas celdas, tienen un comentario
... Necesito extraer esos comentarios (mi idea es mediante visual basic) y ponerlos en otra hoja.
Alguna pista? Gracias

(p.e.) corre una macro +/- como la siguiente en la hoja donde quieras obtener los comentarios
(OJO: modifica el nombre de la hoja que tiene los comentarios)

Sub Copiar_comentarios()
Dim Celda As Range, Fila As Integer
On Error Resume Next ' por si no existen celdas con comentarios '
For Each Celda In Worksheets("hoja1").Cells.SpecialCells(xlCellTypeComments)
Fila = Fila + 1
Range("a" & Fila) = Celda.Address
Range("b" & Fila) = Celda.Comment.Text
Next
End Sub

saludos,
hector.