VBA to copy current sheet (template) and make one sheet for each day of the month and protect it

[Jnb99]

Hi,

The title says it all. This is similar to my previous thread, but I would like to protect the sheet when its created from the template. I wont be using the sheet more than once a day. I also would like to carry over the closing balance of the items in the newest sheet, to the opening balance for the template, so it can calculate the new balance for the new day if that make sense?

My current code is:

Sub copysheetandnamedate()myname = Format(Date, "dd-mm-yy")
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = myname
ActiveSheet.Range("C6:G55").ClearContents
End Sub

Cheers