Documentation on
https://reference.wolfram.com/language/ref/Animate.html shows examples Depends on what you want to do, following is one such snippet,

Manipulate[

a=ParametricPlot3D[{(r + Cos[v]) Cos[u], (r + Cos[v]) Sin[u], Sin[v]},{u, 0, 2 Pi},{v, 0, 2 Pi},Mesh->None, PlotStyle -> Directive[{Gray,Opacity[0.5]},Specularity[White, 10]]  ][[1]];
b=Graphics3D[{ GeometricTransformation[a,RotationTransform[Pi/2,{0,1,0}]]}][[1]];
Animate[
Graphics3D[
{
GeometricTransformation[a,RotationTransform[k,{0,1,0}]],
GeometricTransformation[b,RotationTransform[k,{0,0,1}]]
},
SphericalRegion->True], 
{k,0,2Pi,0.1},
AppearanceElements->{a,b},
AnimationRunning->False, 
AnimationRate->1.0]
,{r,3,6}]