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