Extracting text using VBA

[Kurt]

I have made some head and thanks to everyone's help so far.

I am using the same string of text:'

MECH~CDA-CUP-PF~1 - CUP0915.2XL - Copper Reducer (P)


How do I get the CDA-CUP-PF extracted using something like this?

    AddFormula TopLeft.Offset(1, 3).Resize(RowCount, 1), "=LEFT(AA" & Row & ",FIND(""#"",SUBSTITUTE(AA" & Row & ",""-"",""#"",2))-1)"

 

[steve the fish]

I dont know if you need a formula or just the result or where this value is found on the sheet. Heres one way based on what you have provided:

MsgBox Split("MECH~CDA-CUP-PF~1 - CUP0915.2XL - Copper Reducer (P)", "~")(1)

 

[Kurt]

I really need to keep using that formula format.

A MsgBox would not work since there are several thousand rows.

Thanks for your input.

 

[steve the fish]

So you want a formula? Which cell is the string in and which cell is the formula going in?

 

[Kurt]

So you want a formula? Which cell is the string in and which cell is the formula going in?

We can use cell A1 as an example.