Can someone please tell me whats wrong with this?
 
[Series[
    func, {x, a, n}]];
 {Plot[
   {func, expansion},
   {x, -2 Pi, 2 Pi},
   PlotRange \[RightArrow] {{-2 Pi, 2 Pi}, {yMin, yMax}}],
  Expand[expansion],
  n "degree polynomial around the point x=",
  a},
 {{n, 3}, 1, 25, 1},
 {{func, Sin[x], "Function in terms of x"}},
 {{a, 0}, -5, 5},
 {yMin, -4}, {yMax, 4}]