Manipulate[ParametricPlot3D[
Evaluate[{Cos[p]Sin[t],Sin[p]Sin[t],Cos[t]}Abs[SphericalHarmonicY[l,m,t,p]]],
{p,-Pi,Pi},{t,0,Pi},PlotRange->{{-.5,.5},{-.5,.5},{-1.1,1.1}},
Mesh->False,PlotPoints->{36,18},MaxRecursion->ControlActive[0,2],
ViewAngle->.246,ImageSize ->{500,377},Axes->False,SphericalRegion->True,Boxed->False,PlotLabel->Style[With[{l=l,m=Round@m},TraditionalForm[HoldForm[r==SphericalHarmonicY[l,m,θ,ϕ]]]],14]],
{{l,2,"degree l"},0,7,1,Appearance->"Labeled"},
{{m,0,"order m"},-l,l,1,Appearance->"Labeled"}]