G
Guest
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!
EVERY WORKSHEET OF THE WORKBOOK? EXCEL 2002
THANK YOU!
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
G
Gord Dibben
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
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