copy many sheets to another workbook by vba

[venkat1926]

I had to copy four or five sheets(including a chart sheet) to another workbook. I used these code statements

With ThisWorkbook
.Sheets(Array("new tally", "tally", "pivot macro", "chart macro")).Copy _
    before:=Workbooks("monthly tallies.xls").Sheets(1)
    End With

This crashes excel. I do not know whether this crashing is random. But it occurs a number of times..
My version windows xp excel 2002.

which is the best code for this problem. thanks.