More efficient (faster) sub-String method?

I have a piece of code that works very well but takes a long time. 1s per instance to be exact. My data is going to approach 3000 records so that translates into almost an hour to run through the entire data set.
I am looking for code that will produce the same results but in much less time. Is it possible?

Basically I have a Column that contains names with English and French acronyms separated by [space]/[space]. I need just the English acronym.

Group Name:
ABCDEFG / ABCGDF
XYZ / ZXY
ABC123 / CAB123

Changes to....

Group Name:
ABCDEFG
XYZ
ABC123

This is the code I am using:

Please Login or Register  to view this content.

How about amending the following to suit the range you want to go through

Please Login or Register  to view this content.

It places the split string to the right of each cell it loops through. I think this should be quicker.

EDIT: I just tested this on about 25,000 rows and it finished in about 3 seconds.

You might want to try Data>Text to columns... with / as a delimiter and skipping the second column.

I just tried that on 15000 rows of data similar to yours, it was quite quick.

You just have to love the multiple ways of doing things with Excel.