Evaluate cell with VBA to remove text after Char(10)

[FryGirl]

I can use a helper cell with =MID(A2,FIND(CHAR(10),A2),LEN(A2)) to remove all the text after the line feed, but is it possible to use something such as Evaluate in VBA to perform the action directly in A2?

In cell A2

Before
Step 1
Sometext

After
Sometext

 

[JoeMo]

Your title indicates you want to remove everything after CHAR10, but your before and after picture indicates you want to remove everything before and including CHAR 10. Assuming you want the latter:

Sub test()
Range("A2").Replace Range("A2").Value, Mid(Range("A2").Value, _
    InStr(Range("A2").Value, Chr(10)) + 1, Len(Range("A2").Value))
End Sub

 

[FryGirl]

Hi Joe,

This worked great, thank you