I get an error -
Method 'Range of object'_Global' failed.
This occurs on the following lines ...
Set rng = Range("Database")
If I delete this line then I get another error ...
Method 'Range of object'_Worksheet failed failed.
This occurrs here ...
wsNew.Name = c.Value
I look forward to your reply.