Good Day,
I am trying to add a text box via command button, however, when I press the command button, nothing happens!
My code is as follows:
Private Sub addbox1_click()
'
' Macro2 Macro
' Macro recorded 11/22/2006 by Jason
'
'
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 596.25, 177#, 132#, 45.75). _
Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
End Sub
Thanks!
Bookmarks