Excel Vba Visibleitemslist Array Variable Length