Excel Vba Visibleitemslist Array Variable Length Golf