Delimiting without truncating

I have an address file containing a few hundered thousand rows of data.
The max character lines for my lables is 60 and unfortunatly a large number of the fields exceed this limit.
I need to create a string somthing to the effect of:

delimination
if len(A2<60) end
if len(A2>60) then
if character 60 isblank then deliminate = 60
if character 60 not isblank then deliminate at blank < 60

It makes more sence in my head.

Any suggestions?

Maybe like this:

Sub x()
    Dim cell    As Range
    
    For Each cell In Selection
        With cell
            If Len(.Text) > 60 Then .Value = Left(.Text, InStrRev(.Text, " ", 60) - 1)
        End With
    Next cell
End Sub

Try this:

Sub x()
    Dim r       As Range
    Dim cell    As Range
    Dim iPos    As Long

    Set r = Selection
    If r.Columns.Count > 1 Then
        MsgBox "Single column selection only"

    Else
        For Each cell In r
            With cell
                If Len(.Text) > 60 Then
                    iPos = InStrRev(.Text, " ", 60)
                    .Offset(, 1).Value = Mid(.Text, iPos + 1)
                    If iPos > 0 Then
                        .Value = Left(.Text, iPos - 1)
                    Else
                        .ClearContents
                    End If
                End If
            End With
        Next cell
    End If
End Sub

You're welcome. Would you please mark the thread as Solved?