delete

[alan myers]

how do i delete the shape 2

ActiveWindow.SmallScroll Down:=21
Rows("115:115").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=15
Rows("138:139").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-138
Range("B1:L22").Select
Range("L22").Activate
ActiveSheet.Shapes.Range(Array("Shape 2")).Select
Range("B1:L22").Select
Range("L22").Activate
Selection.Cut
Application.CutCopyMode = False
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.Shapes.Ra

 

[johnny51981]

Have you tried this?

    ActiveSheet.Shapes.Range(Array("Shape 2")).Select
    Selection.Delete