Cleaned  up Sub Select 2D