Insertar Comentario con Macro

He creado una macro para introducir un comentario en la celda seleccionada,
de una hoja protegida, sin contraseña.
La macro no funciona como debería si vuelvo a insertar al final de la macro
la instrucción para volver a proteger la hoja. ¿Cómo puedo hacer?

¿Hay una forma para pedir al usuario, en la misma macro, de elegir si quiere
el comentario visible u oculto?
¿Además se puede impostar el Tamaño Automático del Comentario?

Adjunto el código:

Sub Commentario()
ActiveSheet.Unprotect
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
End With
SendKeys "%IM~"
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
ActiveCell.Comment.Visible = False
'¡¡¡¡¡¡¡¡¡¡¡¡¡ si lo pongo no funciona!!!!!!!!!!!!!!!!!
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

max