Create a new workbook for every worksheet starting with "E" and password protect

Good morning, below i have put the code that im trying to use so that it will copy each worksheet that starts witht the letter "E" into a new workbook then password protect the document, close it then move on to the next worksheet. What i have put together doesnt seem to work, can someone tell me where it is going wrong. many thanks in advance.

Please Login or Register  to view this content.

Try replacing ActiveSheet.Copy with ws.Copy.