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 ActiveSheet.Shapes
If Shp.Type = MsoGroup Then
If Not Intersect(Shp.TopLeftCell, rngShpVal) Is Nothing Then

Regards,
Jim Cone


"Ken Johnson" wrote in message...
Hi Jim,
On an active sheet with an AutoFilter and no shapes
ActiveSheet.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 ActiveSheet.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