Excel Vba Visibleitemslist Array Variables