Hi Greg

3) Have an empty row above, below and a empty column next to your data table

You have this now

Set rng = ws1.Range("A4").CurrentRegion '<<< Change
Because you have data in A1:A3 your range start in A1 instead of A4 and the code can't
find headers in the first row of the CurrentRegion

Select A4 and press Ctrl *
Now the CurrentRegion is active and you see that row 1 and 3 is a part of it

So insert a empty row before row 4 or use a fixed range like
Set rng = ws1.Range("A4:G100")


--
Regards Ron de Bruin
http://www.rondebruin.nl


"GregR" wrote in message oups.com...
Ron, rows(1:3) are only populated in column "A". In other words A1 is
text, A2 is text and A3 is a formula. The rest of the first three rows
are blank.

Greg