![]() |
#14
|
||||
|
||||
![]()
I can't see why you'd want to add the same comment to all such cells but, if that's what you want, try:
Code:
Sub AddComments() Dim ocel As Range On Error Resume Next For Each ocel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) ocel.Comment.Delete ocel.AddComment "Comment Text" Next End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to Insert Text Into Cells Having Multiple Lines | revans611 | Excel Programming | 4 | 10-24-2011 10:15 AM |
![]() |
OTPM | Excel | 11 | 05-23-2011 11:18 AM |
![]() |
PSYloco | Excel | 2 | 05-14-2011 03:46 PM |
![]() |
VinceO | Excel | 1 | 05-09-2011 06:38 AM |
![]() |
jrasche2003@yahoo.com | Excel | 2 | 02-09-2007 07:10 AM |