Sub DeleteShapes()
On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.Drawing...Sub DeleteRow()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
With ActiveSheet
.Select
First...تازه ترین ها