Sub Macro18() With Range("W12").AddComment .Visible = False .Text Text:="Me:" & Chr(10) .Shape.Width = 600 .Shape.Height = 800 End With End Sub