Sub DeleteAN8( an8_project )