How Many CHARACTERS Can You See In SINGLE CELL

Let me state first that I do not see the need to put so much in one cell. Aren't there enough cells ?

Secondly, note the difference between DISPLAY and actual CONTENTS (see formulabar) of the cell. Contentslimits: see helpfiles, but displaylimits check out this code. It will explain itself. Experiment with settings within code.


Option Explicit

Sub count_characters_in_cell()
'Erik Van Geit
'061019
Dim cell As Range
Dim nr As Variant
Dim x As Integer
Dim temp As String

Set cell = Sheets(1).Range("A1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual