Hmmm, well, something's not right here. My code is hanging up.
Help???


Sheets("OWTF P.1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("OWTF P.1").Select
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "For
Return Shipment Only", _
"Arial Black", 36#, msoFalse, msoTrue, 207.75,
363.75).Select
Selection.ShapeRange.IncrementLeft -136.5
Selection.ShapeRange.IncrementTop 34.5
Selection.ShapeRange.ScaleHeight 1.95, msoFalse,
msoScaleFromTopLeft
Range("H35:H38").Select
Range("H38").Activate
ActiveSheet.Shapes("WordArt 43").Select
Selection.ShapeRange.IncrementTop -24.75
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSolid
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255,
255)
ActiveWindow.SelectedSheets.PrintOut Copies:=1


--
remiller131
------------------------------------------------------------------------
remiller131's Profile: http://www.excelforum.com/member.php...o&userid=14888
View this thread: http://www.excelforum.com/showthread...hreadid=265182