Duncan,
I am not sure how you select from a filtered list so you
may be better starting another posting to get an answer from someone more
knowledgeable than me!

"Duncan" wrote:

Brilliant, Thank you Toppers.

Now I just have to work out how to add up all of collumn G from the
filtered results to display on the form and also collumn H, this is
just to show some totals on the form from what is found in the
background, I'll post my code as I am working on using the start as a
range (rng1) and the last cell (bottom one) as rng2 and then looping
offsetting from rng1 adding each time until rng1 is at rng2.

I think I am doing it all wrong! see below, (its not working!)

Set rng1 = Range("g1").Offset(1, 0)
Set rng2 = Range("g1").End(xlDown).Offset(0, 0)
Set rngtest = ActiveCell.Offset(1, 0)
rng1.Activate
Do

LOPRtot.Value = rng1 + rngtest
Loop Until rngtest.Address = rng2.Address