comentarios

Fredy,

Te paso el código.
suponiendo que el comentario se encuentra el la celda B3 y lo quieres pegar
el la celda F3, el comentario es "fredy"

Range("B3").Comment.Text Text:="fredy:" & Chr(10) & "fredy" & Chr(10) & ""
Range("F3").Select
ActiveSheet.Paste
Espero te sirva.
Un saludo.
Jorge


"fredy" wrote:

hola

mi pregunta es ... existe alguna forma de extraer el texto de los
comentarios y copiarlos en una celda por medio de codigo

muchas gracias

fredy