Thread: [Solved] how to gave comments to multiple cells at a time
View Single Post
 
Old 02-07-2012, 02:05 AM
gsrikanth gsrikanth is offline Windows XP Office XP
Competent Performer
  
Join Date: Dec 2011
Posts: 133
gsrikanth is on a distinguished road
Default
above code is comming for value 1 i want to general lies comming error need some correction

Code:
Sub AddComments()
Dim ocel As Range 
For Each ocel In Selection.Cells
  If Len(ocel.Value) > 0 Then
    ocel.AddComment "Comment Text"
  End If
Next
End Sub
Last edited by macropod; 02-07-2012 at 04:04 AM. Reason: Added code tags
Reply With Quote