alan myers
Board Regular
- Joined
- Oct 31, 2017
- Messages
- 119
- Office Version
- 365
- Platform
- Windows
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
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