The code I have (below) does what I want it to do--searches for the cell that
has more than 255 characters, then cuts and pastes that row to the top of the
spreadsheet (row 2). But it throws an error when it finds the cell in row 2
and tries to cut and insert itself.

I want to put in a condition to test if row 2 (because no action is needed),
but I can't figure out how to do it. Can anyone help?

Private Sub FindMemoRow()
Dim Lcell As Range
For Each Lcell In Range("L:L")
' Looking for a cell with more than 255 characters
If Len(Lcell) 255 Then
Range(Lcell.Address).Select
Selection.EntireRow.Select
Selection.Cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Exit Sub
End If
Next Lcell
End Sub

Thank you,
Judy