WORKBOOK COMMENT
 

HOW DO I ENTER A COMMENT IN A WORKBOOK SO THAT IT APPEARS IN THE SAME CELL ON
EVERY WORKSHEET OF THE WORKBOOK? EXCEL 2002

THANK YOU!

WORKBOOK COMMENT
 

Please drop the Caps. Hard on the ears.

Sub Comment_Add_Sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Dim cmt As Comment
Set cmt = ws.Range("A2").Comment
If cmt Is Nothing Then
ws.Range("A2").AddComment Text:="my comment text"
Set cmt = ws.Range("A2").Comment
With cmt.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
.ColorIndex = 0
End With
End If
Next ws
End Sub


Gord Dibben MS Excel MVP

On Mon, 12 Nov 2007 18:47:01 -0800, GRUMPA
wrote:

HOW DO I ENTER A COMMENT IN A WORKBOOK SO THAT IT APPEARS IN THE SAME CELL ON
EVERY WORKSHEET OF THE WORKBOOK? EXCEL 2002

THANK YOU!