Excel Vba Visibleitemslist Array Variable Length Subnet