Find TEXT, WITH Text Carriage return

[jamada]

Hi there

Within a cell when the text "FOLLOW-UP" is found, WITH this text I would like to move "FOLLOW-UP" (And The TEXT following it) to start a new line.

This does not seem to work???


Dim SearchName As String
SearchName = "FOLLOW-UP"

For Each cell In ActiveSheet.Range("J2:J" & lr)
If InStr(1, cell, "SearchName", vbTextCompare) Then

With SearchName
vbNewLine (Chr(10))
End With
End If

Next

 

[AlphaFrog]

    [COLOR=darkblue]Dim[/COLOR] SearchName [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
    SearchName = "FOLLOW-UP"
    
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] cell [COLOR=darkblue]In[/COLOR] ActiveSheet.Range("J2:J" & lr)
        [COLOR=darkblue]If[/COLOR] InStr(1, cell, [B]SearchName[/B], vbTextCompare) [COLOR=darkblue]Then[/COLOR]
            [B]cell.Value = Replace(cell.Value, SearchName, vbLf & SearchName, Compare:=vbTextCompare)[/B]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]Next[/COLOR]

This would do the same thing...

    Range("J:J").Replace "FOLLOW-UP", vbLf & "FOLLOW-UP", xlPart, , [COLOR=darkblue]False[/COLOR]

 

[jamada]

AlphaFrog .... Simply Amazing, works very well in deed!
Thank You, very very much!