Chip Pearson
12/15/2006 6:09:00 PM
Try code like the following:
Dim Rng As Range
Dim SH As Shape
Dim TLC As Range
Set Rng = Range("F4:AJ23")
For Each SH In ActiveSheet.Shapes
If Not Application.Intersect(Rng, SH.TopLeftCell) Is Nothing Then
SH.Delete
End If
Next SH
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)
"CLR" <CLR@discussions.microsoft.com> wrote in message
news:D8A9238E-F248-416C-B956-583546E07858@microsoft.com...
> Hi All..........
> I need help please for the code to delete all Shapes, Images,
> DrawingObjects, whatever, from a selected range of F4:AJ23.....I only seem
> to
> be able to get rid of them by individual name. I want everything out of
> there.
>
> TIA
> Vaya con Dios,
> Chuck, CABGx3
>
>