try this

Sub findandmovetext()
v1 = InStr(ActiveCell, Chr(10))
v2 = InStr(v1 + 1, ActiveCell, Chr(10))
ActiveCell.Offset(, 1) = Right(ActiveCell, Len(ActiveCell) - v2)
ActiveCell.Value = Left(ActiveCell, v1 - 1)
End Sub


--
Don Guillett
SalesAid Software
[email protected]
"DFIChris" <[email protected]> wrote in message
news:[email protected]...

> Don, Thank you for responding!!!
>
> No, by line I mean a line of text in a cell which has three lines of

text,
> separated by "Alt Enter."
>
> I've pasted my macro below. Sorry, I should have thought of doing

that

from

> the start. See where the selection names specific text in the cell

and

the

> ranges are specific cells names? I'm working toward a generic cut and


paste

> macro that I can use down a column of roughly 120 rows.
>
> Sub Macro5()
> '
> ' Macro5 Macro
> ' Macro recorded 4/20/2005 by CC Dietrich
> '
> ' Keyboard Shortcut: Ctrl+j
> '
> ActiveCell.FormulaR1C1 = _
> "Danai Tsapikidou
> ------------------ "
> With ActiveCell.Characters(Start:=1, Length:=77).Font
> .Name = "Tahoma"
> .FontStyle = "Regular"
> .Size = 10
> .Strikethrough = False
> .Superscript = False
> .Subscript = False
> .OutlineFont = False
> .Shadow = False
> .Underline = xlUnderlineStyleNone
> .ColorIndex = xlAutomatic
> End With
> Range("P3").Select
> ActiveSheet.Paste
> Range("O4").Select
> End Sub
>
>
>
>
> "Don Guillett" wrote:
>


> > As always post your macro for comments. By "line", do you mean row?
> >
> > --
> > Don Guillett
> > SalesAid Software
> > [email protected]
> > "DFIChris" <[email protected]> wrote in message
> > news:[email protected]...


> > > I canNOT figure out Visual Basic Language. All I want my macro to

do

is

> > to


> > > go to the end of the first line, delete the second line, cut the

third

> > line,


> > > past the third line in the cell to the right of the cell I'm

editing,

and

> > > then go to the cell below the cell I was editing.
> > >
> > > When I record this macro it only works in the EXACT cells I

edited,

not in

> > > any other cells.
> > >
> > > Oh help, please.
> > >

> >
> >


> >