ExcelBanter - Formatting cell comments in VB

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Formatting cell comments in VB (https://www.excelbanter.com/excel-discussion-misc-queries/164734-formatting-cell-comments-vbulletin.html)

Formatting cell comments in VB

Hello, I am trying to add a comment to a cell via the following code.
Everything works except the lines that I have commented out. Could someone
steer me in the right direction. Thanks, Brett

Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).AddComment
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Comment.Visible =
False
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Comment.Text
Text:="CHECK RATE"
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Select
With Selection.Comment
.Shape.Width = 85
.Shape.Height = 20
' .Shape.HorizontalAlignment = xlCenter
' .Shape.VerticalAlignment = xlCenter
' .Font.Size = 12
' .Font.Bold = True
End With

Formatting cell comments in VB

hi
see debra's site.
http://www.contextures.com/xlcomments03.html
regards
FSt1

"Brettjg" wrote:

Hello, I am trying to add a comment to a cell via the following code.
Everything works except the lines that I have commented out. Could someone
steer me in the right direction. Thanks, Brett

Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).AddComment
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Comment.Visible =
False
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Comment.Text
Text:="CHECK RATE"
Workbooks(wintools).Sheets("Accounts").Cells(paste row, 11).Select
With Selection.Comment
.Shape.Width = 85
.Shape.Height = 20
' .Shape.HorizontalAlignment = xlCenter
' .Shape.VerticalAlignment = xlCenter
' .Font.Size = 12
' .Font.Bold = True
End With