Dear Steve

Mention the 20 shape names as a comma separated string...like below and run
the below macro.... Make sure the names are exactly same as the shape
names....For example the by default name for Rectangle come as 'Rectangle 1'
and not 'Rectangle1'...Try and feedback


Sub Macro()
Dim lngTemp As Variant
Dim strShapes As String

strShapes = "Rectagle 10,Rectangle 2,Rectangle 31"
strShapes = strShapes & ",Rectagle 32,Rectangle 35,Rectangle 70"


For lngTemp = 1 To ActiveSheet.Shapes.Count
If InStr(1, "," & strShapes & ",", "," & ActiveSheet. _
Shapes(lngTemp).Name & ",", vbTextCompare) = 0 Then
ActiveSheet.Shapes(lngTemp).Delete
End If
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Anthony" wrote:

Hi

once again my needs are outstripped by my abilities so I turn here for help

I produce weight reports from my scales for cattle weighed by type and number

Each weighing event is made up of multiple weighings specifying type, number
and weight.

This is exported in excel format as below.

I need the formula to present a summary at base that does the following
Look at animal types listed and dop the "names" into the summary area, and
then sum the total number oif animals for that type plus there weight into
cells along side


A B C
Cow 22 10000
Cow 5 3200
Steer 3 1780
Bull 1 450
Steer 17 5600
Cow 2 890

The summary needs to pull the animal types as above with toatls per type.

BNext time I weigh the animal types may well be different.

Once I have formulas correct I wll record macro to fast track

Hopefully this q makes sense

anthony