Good day,
The following code needs to Copy data from all Worksheets, except 2 specified, and paste underneath each other in the "Summary" tab, then delete the worksheets that the data was copied from.
It works except it still copies the 2 specified not to and delete them as well. Please help.
Please Login or Register to view this content.
Last edited by Simone Fick; 08-03-2017 at 09:59 AM. Reason: changed code to current error code
You have specified 3 sheet names, not 2.
If ws.Name <> pasteSheet.Name AND ws.Name <> "KAM" AND ws.Name <> "OPS" Then
Check the sheet names are spelt correctly and check the spaces before the sheet names as well.
Or, you can copy the sheet names directly from excel in to the code, so that they are the same.
Or to be on the safe side use the sheets CodeNames.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
Rookie mistake, thank you. The names of the sheets were changed after and I was using them.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks