<< Graphics`Shapes`

Show[ Graphics3D[ MoebiusStrip[ 2,  1,  50] ]]

\(Do[Show[
        RotateShape[
Graphics3D[MoebiusStrip[\ 2, 1, 80]\ ], 
Pi, Pi, 
          n*Pi], PlotRange -> {{\(-3\), 3}, {\(-3\), 3}, {\(-3\), 3}}], {n, 
        1, 3,  .1}]\)