Trick to Move Worksheet to other Workbook

[seageath]

Hi all,

I have tricky case that I need to solve related to the following Workbook.
Say that workbook A is a template where I do most of the calculation and process.
And workbook B is the final workbook / file that I use to save the final result.
In my macro, I selected specific worksheet(s) in A to be moved in to B.

Currently I do like the following

Do 
Select case Ws.Name
Case 1
Case 2
Case 3
While WS.Count = 10

But sometimes (not always) not all selected WS being moved to B, mostly missed 1.
I knew somehow in the code is not correct, but not sure how to fix it.
Any idea how is the logic to (always) move them correctly without miss the worksheet.

Thanks.

-sea-

 

[doofusboy]

Have you tried something like this?

Dim ws As Worksheet
 
    For Each ws In Worksheets
        ' your move code here
    Next ws

 

[seageath]

Thanks a lot, just remember there is For Each syntax.

I might be having some memory loss somehow

-sea-

Have you tried something like this?

Dim ws As Worksheet
 
    For Each ws In Worksheets
        ' your move code here
    Next ws