This will get you to 90 degrees...
With wordart (not in a cell) you can go 180 degrees. Hard to read though....
I recorded a macro to accomplish this task:<pre>
Sub upSidn()
Dim n As Object
Application.ScreenUpdating = False
Set n = ActiveSheet.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Whassup?", FontName:="Arial Black", FontSize:=8, FontBold:=msoFalse, _
FontItalic:=msoFalse, Left:=1, Top:=1)
n.Rotation = 180
End Sub</pre>
_________________
Cheers,<font size=+2><font color="red">
Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-07-12 07:59