Re: Mysterious Error 1004 caused by AutoFilter?

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Ken,

Good morning,
Since you already check for the Shape.Type why not use that
and eliminate the extra check for the Shape Name...

For Each Shp in Active***.Shapes
If Shp.Type = MsoGroup Then
If Not Intersect(Shp.TopLeftCell, rngShpVal) Is Nothing Then

Regards,
Jim Cone


"Ken Johnson" <KenCJohnson@xxxxxxxxx> wrote in message...
Hi Jim,
On an active *** with an AutoFilter and no shapes
Active***.Shapes(1).Name returns "Drop Down 1", so would I be right
in saying that a safer way around the problem would be...

For Each Shp in Active***.Shapes
If Left(Shp.Name,9)<> "Drop Down" Then
rest of loop code
End If
Next Shp

so that those Drop Down arrows are not processed and the loop goes to
the next Shp?
Ken Johnson

.

Quantcast