If you want to copy all of your worksheets from the actual workbook to another workbook, you can use this simple VBA code to do it.
Sub copy_sheets()
Dim wb1 As Workbook
Dim wb2 As Workbook
wb1 = ActiveWorkbook
'Change the name of the destination workbook here
wb2 = Workbooks("Destination.xls")
For Each Sheet In wb1.Sheets
If Sheet.Visible = True Then
'copy the sheets after the last
'sheet of the destination workbook
Sheet.Copy After:=wb2.Sheets(wb2.Sheets.Count)
End If
Next Sheet
End Sub
