Excel Vba Visibleitemslist Array Variable