If the worksheet name begins with "CAL", copy the table to a new worksheet

Hi all,

I wonder if you could help me please?

I have a worksheet called "Summary".
I have lots of other sheets too and sheets which have a name beginning with the letters "CAL" have got data tables in them.
Ideally I would have a macro that loops through all sheets which begin with "CAL" and copies the data table into the "Summary" sheet, one underneath the other.

My problem is with the looping. Below is the code I currently have.

Thank you!

Please Login or Register  to view this content.

Hi Jessica,

Your code is very close, but you're missing With... End With statements. For example, here:

Please Login or Register  to view this content.

You need to make sure that it knows that it should be looking at cells on xSheet.

If your code runs (no compile error) then I guess you've got a With... End With block outside of the loop you've posted, which means that the properties beginning with dots (.) inside your loop are looking at the wrong sheet?

Also, when you copy and paste over, you better make sure that you're not overwriting the last row of data on the summary sheet.