cell length issue

[wayneg]

Hi all,

i have a macro that looks at a cell in column U and creates it as a comment in column V

It works ok but when the contents of the cell U exceed 255 characters, the comment box wont create. Is there a way of getting around this. I have checked the code and it is definitely the 255 character issue as if it is 255 it works, but if it goes to 256 it doesnt.

Sub TestForCommentsMacro() 
' 
' TestForComments Macro 
' 
 
' 
'######################################################### 
'Create comment from cell value 
 
Range("V11:V702").ClearComments 
       
Dim LR As Long 
 
LR = Range("U" & Rows.Count).End(xlUp).Row 
For i = 95 To LR 
   Range("V" & i).NoteText Text:=Range("U" & i).Value 
 
Next i 
 
'######################################################## 
 
 
End Sub  

[wayneg]

i have currently added an if statement to the U cell just to remind me what the problem is (until you helpful people can tell me)

=IF(LEN(Q24)>255,"Comment To Long to display",Q24)

[stnkynts]

Untested but try changing this line

Please Login or Register  to view this content.

[wayneg]

Yes, that worked fine ty