I have a some code below. The code looks for the three sheets "Incountry", "Inbound" and "Outbound"
Ive just realised a system we use downloads into excel 2007, limiting it to 65k rows, so if inbound has 220k rows, i will receive three tabs "Inbound", "inbound_1" & "Inbound_2", the same applies for "Outbound" and "Incountry"
So i need my code to check for whether these sheets exist and then append them to the destination tab "Combined Data"
Im not sure how to check, as there may be one addtional tab or there may be 10, so i cant hardcode the possible names.
So i need the code to somehow check if these addtional tabs exist and if they do, add to combined.
Dim wsDestination As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.DisplayAlerts = True
On Error GoTo 0
Set wsDestination = Sheets.Add
wsDestination.Name = "Combined Data"
Sheets("Incountry").Range("A1:AT1").Copy Sheets("Combined Data").Range("A1:AT1")
Sub CopyFromSheet(wsSource As Worksheet)
Dim FromRange As Range
Set FromRange = wsSource.Range("A2:AT" & wsSource.Range("A" & Rows.Count).End(xlUp).Row)
FromRange.Copy wsDestination.Range("A" & wsDestination.Range("A" & Rows.Count).End(xlUp).Row + 1)