Sub DeleteTileMap(tilemap)