Thank you Bob, also thanks to Bob Phillips...
Now the code operates with no problem at all.
Martyn


"Bob Flanagan" wrote in message
...
Martyn, "sh.Cop" should be sh.Copy"

Also, if the file exists, you will be prompted to replace and if you
cancel
you get an error. To avoid the prompt use "Application.DisplayAlerts =
False". Set back to True when done as it is a permanent session change.
If
you don't want to replace existing files, you will have to use Dir(sh.name
&
".xls") to test if the file is there (returns blank or the file name)

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel