For Each Value In Array Vba