take a look at this demo

Option Explicit
Sub text()
' generate a text string for testing
Dim txt As String
Dim index As Long
For index = 1 To 2000
txt = txt & CStr(index)
Next

Split_Text txt

End Sub
Sub Split_Text(txt As String)
Dim index As Long
Do Until Len(txt) = 0
index = index + 1
Cells(index, 1) = "'" & Left(txt, 200)
txt = Mid(txt, 201)
Loop
End Sub

"Greg B" wrote:

Hi all

I have set up a database where it has stored A lot of information. The
problem I am having is with the controlled forms my employer has issued.
What I need Excel to do Is when I hit a button I need like a carraige return
control. Where a certain amount of character can be used for a certain
cell then the remaining words are sent to the next cell down etc.

Is this possible?

THanks

Greg