Is it possible that you need your code to look like this:

Set rng = Range("A1:A10")
For Each cell In rng
If Len(cell.Value) 7 Then
cell.Offset(0, 1).Value = cell.Value
cell.ClearContents
End If
Next


"SITCFanTN" wrote:

Here is the code that I used in a sheet to move cell contents from one row to
another. I'm using in a another sheet and it isn't working....it is moving
the entire row to the new column, not just the cells with greater than 7
characters. Any ideas? Thanks

Set rng = Range(Cells(2, "K"), Cells(Rows.Count, "K").End(xlUp))
For Each cell In rng
If Len(cell.Value) 7 Then
cell.Offset(0, 1).Value = cell.Value
Next
cell.ClearContents
End If