Hi, 

I need help with a simple macro I wrote. What I am trying to accomplish is to make sure any sheet a user copies to the workbook with any random worksheet name, it stays protected to make sure the code jumps any protected cell to the unprotected cells for input. Below is the code

Thanks in advance,

Ken Mc 

 Private Sub Workbook_Open()
    Dim WB As Workbook

     Set WB = ThisWorkbook
     WB.Protect

  WB.EnableSelection = xlUnlockedCells

End Sub