ttPoints = RandomReal[{-1, 1}, {15, 3}];
Show[
 Graphics3D[Tooltip[Sphere[2 #, .1], #] & /@ ttPoints]

, SphericalPlot3D[
  1.5 + .1 Sin[5 ϕ], {θ, 0, Pi}, {ϕ, 0, 2 Pi}
  , Mesh -> None
  , PlotStyle -> Opacity[.25]
  , BoxRatios -> {1, 1, 1}
  ]
]