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 may be longer that one row. How do I get this to wrap the text onto the 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 the cell is selected. Is their a way to wrap the text onto the next row?

Thank you,
Morry

Have you tried autofit on the row to make the problem cell taller?

Dave

I tried to use auto fit and it works to see the data but the problem is that i don't want the column next to it to be adjusted. Do you know of anyway i can just have the data wrap to the next row.

Thank you for your help
Morry

Provided you have no values in the cells below, try using Merge Cells from the Format Cells menu.