View Single Post
 
Old 12-21-2021, 03:53 AM
p45cal's Avatar
p45cal p45cal is online now Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 871
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

Could this be a bit more straightforward?:
Code:
Sub Macro18()
With Range("W12").AddComment
  .Visible = False
  .Text Text:="Me:" & Chr(10)
  .Shape.Width = 600
  .Shape.Height = 800
End With
End Sub
Reply With Quote