Remove Text to the Right

[dparteka]

Sheet-1 Column-A has various text that looks somewhat like this...

.0051 Total Runout to -A- -B- [Actual] 1-3H12-39

Each field has a left square bracket as shown above to the left of the word Actual, I've been trying to create a macro that will remove everything to the right of that bracket in all the cells in column-A; I appreciate any help you can offer... thank-you

 

[Luke M]

A wildcard is your friend.

Sub KillBracket()
Range("A:A").Replace what:="[*", replacement:="", lookat:=xlPart
End Sub

 

[cdbauer1]

Try this formula if the text is in Cell A1:

=LEFT(A1,FIND(" [",A1))

Or if you want to keep the left bracket:
=LEFT(A1,FIND("[",A1))

 

[dparteka]

Thanks Luke M... works perfectly, you are a wizard

 

[SirJB7]

I've been trying to create a macro that will remove everything to the right of that bracket in all the cells in column-A

@cdbauer1
Hi!
Read that? Bold is mine.
Regards!

 

[Luke M]

Don't mind Mr. Grumpy-pants there, cdbauer1. He's just jealous that I got the solution first. j/k
While OP did request a macro, it's nice to see a formula solution, just in case OP had not considered it.

 

[cdbauer1]

Ha! I did see that before responding, @SirJB7 - but I also believe:

“Success is about having more options. More the options, more the success.”
-Krishna Saagar

I'd also hope to enrich the options of the next person to come across this very aptly named thread.