VBA to copy all unprotected cells to another workbook

[LKERN]

I am trying to make a back-up of all user input into a spreadsheet with multiple sheets. I have 22 sheets with each tab specifically named. 8 of the 22 sheets have user input that needs to be copied into another workbook as values.

I found this code on another site, but I don't want the loop to go through all of the sheets, just the specifically named sheets that have user input.

How do I change this code to cycle through just the sheets I need copied?

Please Login or Register  to view this content.

[daboho]

Change in this line

Please Login or Register  to view this content.

[LKERN]

Thank you for the super-fast reply.

I changed the code and entered my worksheet names as indicated, but I get a run-time error (Subscript out of range) on the next line:

Please Login or Register  to view this content.

[daboho]

Thank you for the super-fast reply.

I changed the code and entered my worksheet names as indicated, but I get a run-time error (Subscript out of range) on the next line:

Please Login or Register  to view this content.

Try change to

Please Login or Register  to view this content.

[LKERN]

I removed the .name and now I get "Type mismatch" run-time error on the same line.

[LKERN]

I went back and deleted all but 2 of the sheet names that I entered and it did not error on the same line. This time the error is "Runtime Error 13: Type Mismatch" on this line:

Please Login or Register  to view this content.