Hi All,
I have this code below which sometimes works and sometimes not. The main issue is with line Sheets(Array(.......
Many times the code would skip this line as if doesn't mean anything, and sometimes all the sheets to the new workbook.
Can you help please?
Code
Public Sub CopyREDTABS2()
Dim WBSource As Workbook
Dim WBDestination As Workbook
Dim WScount As Integer
Set WBSource = ActiveWorkbook
Debug.Print WBSource.Name
Sheets(Array("Sheet 6", "Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4")).Copy
Set WBDestination = ActiveWorkbook
For Each Sheet In ActiveWorkbook.Sheets
Debug.Print Sheet.Name
Sheet.Select
Call Copypastevalues
Next Sheet
End Sub
Display More