Very sorry about that


Sub testing()
On Error Resume Next

Dim count, description

Dim A As Variant

A = Array("JOY", "COKE", "FANTA", "SPRITE")

For count = 0 To 3
If (WorksheetFunction.Find(A(count), Range("B29").Value)
> 6) Then


Exit For

End If

Next count

description = Right(Range("Parameter!C6").Value, 3) & "-" &
Range("B24").Value & A(count)



End Sub
I want to extract the word JOY/COKE/FANTA/SPRITE

' B29 sometimes is 600ML JOY BOTTLE (1,530/PLT) / 1.50 LT COKE (LOCAL) 576
Bt / 1.50 LT FANTA (LOCAL) 576 Bt / 1.50 LT SPRITE (LOCAL) 576 Bt

I notice that JOY/COKE.... start at least from 7 in cell  B29 but I do not
think it's a good condition "WorksheetFunction.Find(A(count),
Range("B29").Value) > 6"