Ok thank xlnitwit
I not see your code
In your code
Set matches = .Execute(R.Value)
Store to variant matches
Use set
In array or string without use set
Can explain me
If i am looping matches use ubound stiil can do
For example for i = ( 1 to ubound(matches))