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...
تازه ترین ها