I am having trouble wraping text to the next row.

My code is:

Private Sub Submit_LNotes_Click()

With Worksheets("Notes")
cLastRow = .Cells(Rows.Count, "H").End(xlUp).Row
.Cells(cLastRow + 2, "H").Value = "Top Number: " & TopNum.Text
.Cells(cLastRow + 3, "H").Value = "Part Number: "
LPartNum.Text
.Cells(cLastRow + 4, "H").Value = " " & LNotes_Box.Text
End With
LNotesForm.Hide

End Sub

In my third cell that gets information inserted into it, the text ma
be longer that one row. How do I get this to wrap the text onto th
next row so that it stays visible. When I use the wrap text option
under Format Cells it wraps the text but you can only see it if th
cell is selected. Is their a way to wrap the text onto the next row?

Thank you,
Morr

--
Message posted from http://www.ExcelForum.com