Remove part of cell contents

[Damo10]

Hi,

I need some VBA code that will look at all populated cells in column I and remove from the contents the brackets, the contents inside them and the space to the left and leave the rest, the bracketed information is always on the end of the contents but the contents inside does change.

Example

STRAWBERRY (10KG) to STRAWBERRY

Regards

 

[VoG]

Try with a formula

=LEFT(I1,FIND("(",I1)-2)

 

[Damo10]

Hi VoG,

Thanks for your reply but I need to do this via code and the cell contents vary in length and there are some that dont have the bracketed info on the end.

Regards

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long, j As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("I" & i)
        j = InStr(.Value, "(")
        If j > 0 Then
            .Value = Left(.Value, j - 2)
        End If
    End With
Next i
End Sub

 

[Damo10]

Thanks VoG that works perfectly

Regards