Wrap Text without Wrapping Text

I have a need to "wrap text" without using the wrap text function. My goal is if cell x contains > 15 characters the 1st 15 characters stay there and the next 15 characters get populated in cell y. I've searched long and hard through the forums with no success. I can limit the number in each cell and everyone keeps telling me to just merge the cells and use wrap text but that doesn't work for what I'm using it for. Please assist.

Some idea.

If Len(Range("A")) > 15 Then Range("A").WrapText = True

Thank you for responding, unfortunately I actually need the text to come out of the one cell and be set as the value in the new cell. For instance: Cell X "The big brown dog" Cell Y "jumps over the fence". When you use the wrap text feature Cell X has a value of: "The big brown dog jumps over the fence"

In that case you need &, or join functions.

Range("A1") = Range("A1") & "" & Range("B1")

Manthux,

Try something like this:

Sub manthux()

Dim str As String
Dim num As Integer
Dim rng As Range

Set rng = ActiveCell
num = Len(rng) - 15
str = rng.Value

    If Len(rng) > 15 Then
        rng.Offset(1, 0).Value = Right(str, num)
        rng.Value = Left(str, 15)
    End If

End Sub

Its not set up for with an event handler so you'll have to run it with a short cut key or something like that. Its also not set up to loop through the whole spreadsheet (although it could be set up that way). Its only set up to run on the cell you have selected.

I love where your head is at but it doesn't move the remaining characters to another row

I think the problem is because I am using a VLookup("X") operation, the cell that is populated with the info is just carrying it over from the original cell, any ideas?

Ok the goal is: User enters information in column P - information is than populated in a different column (column W) when the user puts an "X" in the first column of that row. when the information is populated in the second column, if it is > 44 characters I need the remaining characters to be dropped into the next cell down (different row) I currently have the information being populated into the cell I need when an X is placed but the > 44 character operation isn't working

=VLookup("X",$A$24:$T$1000,16) displays the correct info, but if this value is > 44 then characters 45 plus should be in the row below