Try
VB:Sub EliminateEndings() Dim i As Long, j As Long, n As Long Application.ScreenUpdating = False n = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To n 'assumes header j = InStr(Cells(i, 1), "(") If j > 0 Then Cells(i, 1) = Trim(Left(Cells(i, 1), j - 1)) Next i Application.ScreenUpdating = True End Sub




Bookmarks