I dont know about non printing chars but i use the elipsis
ActiveCell.Value = ActiveCell.Value & Chr(133)
Dim s As String
s = Chr(133)
Cells.Find(What:=s, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
hope it helps as far as not displaying or printing thats a good idea, maybe change the color of the text to the back color of cell for not displaying, but not printing i dont know