Remove certain string characters from the column

[Razor_Rob]

Hi
I have a VBA code that removes certain numbers at the end of the string in Column X

X
Test Date (12345678)
Sample Text (ABC12345)
Description Again (ARA30123)
Plumbing
Roof Plumbing

With wsDest.Range("X3:X" & lDestLastRow)
        .Value = Evaluate("=IF({1},MID(" & .Address(0, 0, 1, 1) & ",1,LEN(" & .Address(0, 0, 1, 1) & ")-11))")
    End With

after running the code

X
Test Date
Sample Text
Description
#VALUE!
Ro

What I want to do is just remove the characters in the brackets including the brackets.

 

[kevin9999]

With wsDest.Range("X3:X" & lDestLastRow)
    .Replace "(*)", ""
End With

 

[Razor_Rob]

That didnt work, its now not removing the characters, old data = the new data

 

[Alex Blakenburg]

That didnt work, its now not removing the characters, old data = the new data

Are you sure you are not having the same issue you had in this thread ?
Error 1004 - Method Range of Object Worksheet failed

I tested @kevin9999's code and it worked fine for me but if you have not set a value for lDestLastRow (which was the issue in the above thread), then clearly it is not going to work.

PS: You might need to put a space before the bracket " (*)" using your sample data it is leaving a trailing space.

20220919 VBA Replace text in brackets Razor_Rob.xlsm
	X	Y	Z	AA
1
2	Result after running macro			What it looked like before
3	Test Date			Test Date (12345678)
4	Sample Text			Sample Text (ABC12345)
5	Description Again			Description Again (ARA30123)
6	Plumbing			Plumbing
7	Roof Plumbing			Roof Plumbing
8
Sheet1

 

[Peter_SSs]

Assuming that the same mistake has not been made, my guess is that the Find/Replace has a carry-over 'Match entire cell contents' in place.
Try this instead

With wsDest.Range("X3:X" & lDestLastRow)
  .Replace What:=" (*)", Replacement:="", LookAt:=xlPart
End With