Xlnitwit
aa = .Execute(R.Value)(0)
(0) = first pattern

How if loop aa use sub aa()