ParametricPlot3D[{Cos[y] Cosh[x], Cosh[x] Sin[y], Sinh[x]}, {x, -10, 10}, {y, -10, 10}]