Sorry Max, I am losing it today.

Change that

With Worksheets(sh)

to

With sh

The problem was that sh was a worksheet object, and I was trying to use it
as a worksheet name string. Total **£$?!* on my part.

Fingers crossed.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Max Bialystock" wrote in message
...
Hi Bob and thanks very much for all your help,

The routine stops at:
With Worksheets(sh)
with an error message 13 type mismatch.

I can't see what's wrong, but then I'm in a little over my head here.


--
Regards,
Max