String Parsing

[airforceone]

00000 TEMPLATE.xlsx
	A	B	C	D
1	Copied Entry	Expected Result
2	Dog*Brown,White,Black,Dragon*Golden,Green,Red,Black,Panda*Red,Black,Green	Dog*Brown,White,Black	Dragon*Golden,Green,Red,Black	Panda*Red,Black,Green
Sheet1 (2)

As shown above I would like to parse the cell value for every "*" entry to arrive at the expected result, below is my somewhat working code
Number of Pet may go up as many as 8 sets, in the above example we have 3 Pet Sets ie. Dog, Dragon and Panda.

Sub ListOfAnimals()
    Dim aPets() As String
    Dim iCTR As Long
    aPets = Split(Cells(2, 1), "*")
    For iCTR = LBound(aPets) To UBound(aPets)
        Debug.Print aPets(iCTR)
    Next
End Sub

 

[airforceone]

You have placed the code in a different location to that suggested. Try it, as indicated, in a module in the workbook where it will be used, not in your personal macro workbook.

Oh My! Fault accepted! thanks mate, It's working now.
I'll try to find a remedy to parse it more, since there are 3 sets of animals in the string.
The code seems to just parse the first occurrence...

 

[Peter_SSs]

The code seems to just parse the first occurrence...

Did you follow this too?

Enter the formula as shown in the screen shot ... and copy across (& down if multiple rows).

 

[airforceone]

Did you follow this too?

It is my Big Blunder for the day, One after another!
SORRY mate, I think I really need that sleep badly! THANKS AGAIN
will mark it as solved and sleep