15 Mar 2015 by Abdulnazark
Sub EliminateEndings()Dim i As Long, j As Long, n As LongApplication.ScreenUpdating = Falsen = Cells(Rows.Count, 1).End(xlUp).RowFor i = 2 To n 'assumes headerj = InStr(Cells(i, 1), "(")MsgBox jIf j > 0 Then Cells(i, 1) = Trim(Mid(Cells(i, 1), j + 1, Len(Cells(i, 1)) - (j +...