Actividad pública reciente
Ha valorado "Excelente" la respuesta
Como inserto un comentario desde l ultima celda act
Con que hagas esto ya vale Sub comentario() Range("E2").Select Selection. ClearComments ActiveCell. AddComment.Text (Range("A1"). Value) ActiveCell.Comment.Visible = False End Sub