Sub DeleteTileSet(tileset)