Formatting still not kept....

[Kristin =]]

Thanks so much for your reply Frank. But unfortunately, all that it
did was paste the text without the lines breaks, all run together....

But thanks!

This should not be so hard, should it?

 

[Robert Christie]

Hi Kristin
With the Find/Replace function.
I copied a cell containing your finished title layout
(using the Alt+Enter new line formatting) into the
Replace with: field and clicked on Options>> then the
lower -- Format... and selected -- Choose Format From
Cell.
(I also used the Alt+Enter just for good measure in
the "Replace with" field but I don't think it helped).

This achieved the three lines of text you require but did
not enlarge the cells to show all the lines.<G>
But you could get around this by Ctrl+A to select whole
sheet and double clicking using mouse on column and row
separating lines.

Or not what you asked for, a macro

Sub Find_Replace()
'
loopdeloop:
On Error GoTo errorhandler:

Cells.Find(What:="CulturalEd", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Course: Cultural Education"
& Chr(10) _
& "Date: Monday, April 5, 2004" & Chr(10) & "Credits
Awarded: 2.5"
Cells.FindNext(After:=ActiveCell).Activate
GoTo loopdeloop:
errorhandler:
End Sub

Watch out for wrapping of lines.

HTH

Bob C.

 

[Robert Christie]

Hi again Kristin
I should of stated I'm using Excel 2002 from OfficeXP pro.
I'm also not sure of the sequence of actions I carried
out.
Did I copy text from cell, then formatting from cell or
vise-versa.?
It just suddenly worked, I hope you have success as well.
The macro was just a back up idea should all else vail.

Regards Bob C.