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?
- 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
- Call Copypastevalues
- Next Sheet
- End Sub