J
Juan Sanchez
If you are possitivelly sure that you do not wan't any
shape that could possibly be in the active sheet, be it a
line, circle, arrow, flow chart objet et. al. Non what so
ever, then you can use this...
'========================================
Sub DeleteAllObjects()
Dim MySH As Object
On Error Resume Next
For Each MySH In ActiveSheet.Shapes
MySH.Delete
Next
On Error GoTo 0
End Sub
'=========================================
On your worksheet, hit Alt+F11 youl be on the VBA screen,
Insert > Module, paste this in the module then hit Alt+F11
again to go to the exel worksheet.
Then go to Tools > Macro > Macros (or Alt+F8) and choose
DeleteAllObjects from list, the RUN...
*ALL AUTOSHAPES WILL, WILL, WILL BE DELETED, AND THERE IS
NO WAY BACK*
Cheers
Juan
shape that could possibly be in the active sheet, be it a
line, circle, arrow, flow chart objet et. al. Non what so
ever, then you can use this...
'========================================
Sub DeleteAllObjects()
Dim MySH As Object
On Error Resume Next
For Each MySH In ActiveSheet.Shapes
MySH.Delete
Next
On Error GoTo 0
End Sub
'=========================================
On your worksheet, hit Alt+F11 youl be on the VBA screen,
Insert > Module, paste this in the module then hit Alt+F11
again to go to the exel worksheet.
Then go to Tools > Macro > Macros (or Alt+F8) and choose
DeleteAllObjects from list, the RUN...
*ALL AUTOSHAPES WILL, WILL, WILL BE DELETED, AND THERE IS
NO WAY BACK*
Cheers
Juan
getting a message "Cannot shift objects off a sheet!"