Borrar comentarios en celdas

¿por qué una macro?
menu edicion-ir a, seleccionas comentarios y después boton derecho y
eliminar comentario


"Enrique" escribió en el mensaje
news:

Hola a todos !!

Necesito una macro que me borre todos los comentarios que existan en una
hoja.
¿Alguien puede ayudarme?
Desde ya, gracias a todos los que me respondan !!!

"Enrique" escribió en el mensaje news:

Hola a todos !!

Necesito una macro que me borre todos los comentarios que existan en una hoja.
¿Alguien puede ayudarme?
Desde ya, gracias a todos los que me respondan !!!

Sub BorrarComentarios()
Dim cm As Comment
For Each cm In Worksheets("Hoja1").Comments
cm.Delete
Next cm
Set cm = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando, muchas gracias, tu ayuda me fue muy útil

Hasta la próxima

"Fernando Arroyo" escribió:

"Enrique" escribió en el mensaje news:
> Hola a todos !!
>
> Necesito una macro que me borre todos los comentarios que existan en una hoja.
> ¿Alguien puede ayudarme?
> Desde ya, gracias a todos los que me respondan !!!

Sub BorrarComentarios()
Dim cm As Comment
For Each cm In Worksheets("Hoja1").Comments
cm.Delete
Next cm
Set cm = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel