Vba For Each Item In Array