auto-ta,año en los comentarios

Prueba con el siguiente código:

Sub AutoAjustarComentarios()
Dim wks As Worksheet
Dim cmt As Comment

For Each wks In Worksheets
For Each cmt In wks.Comments
cmt.Shape.TextFrame.AutoSize = True
Next cmt
Next wks

Set cmt = Nothing
Set wks = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Mara" escribió en el mensaje news:

hola a todos

quisiera preguntaro si existe alguna funcion o utilidad que permita ajustar
los commentarios de celdas para mostrar todo su contenido sin tener que ir
uno por uno

recibo hojas de calculo con un monton de comentarios, y para leerlos
completamente tengo que andar ajustando uno por uno

gracias por aelantado