Thank you thankyou, it does exactly what I'm looking for.
The sad part is now I will be busier.
Thanks again.
Sub Pierre()
Dim Rng As Range, Data As Range, iLeft As Integer
Set Data = Selection
For Each Rng In Data
iLeft = InStr(1, Rng, "(") + 1
If iLeft > 1 Then
Rng.Offset(0, 1) = Mid(Rng,
try the attached workbook see if it helps
On Mon, Aug 26, 2013 at 8:00 PM, Pierre Lanoue wrote:
> I have some data that is imported into Excel. It's a long string of text,
> in one cell, that I have to split in 2 cells and get rid of unwanted data.
>
> I've attached a file, I need to manipulat
Try this macro
Sub Pierre()
Dim Rng As Range, Data As Range, iLeft As Integer
Set Data = Selection
For Each Rng In Data
iLeft = InStr(1, Rng, "(") + 1
If iLeft > 1 Then
Rng.Offset(0, 1) = Mid(Rng, iLeft, InStr(1, Rng, ")") - iLeft)
Rng.Offset(0,
I have some data that is imported into Excel. It's a long string of text,
in one cell, that I have to split in 2 cells and get rid of unwanted data.
I've attached a file, I need to manipulate the data in ROW 3 to look like
the data in ROW 5. Normally i do this on the same row. I will copy wh
