G
Guest
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(pasterow, 11).AddComment
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 11).Comment.Visible =
False
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 11).Comment.Text
Text:="CHECK RATE"
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 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
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(pasterow, 11).AddComment
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 11).Comment.Visible =
False
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 11).Comment.Text
Text:="CHECK RATE"
Workbooks(wintools).Sheets("Accounts").Cells(pasterow, 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