Sub Sheet1_Button2_Click()

On Error GoTo 0
Workbooks("CONTROL").Sheets("Sheet1").Range("J:K") = ""
Application.DisplayAlerts = False
a = "C:\SO TESTING\1 (1).csv"
b = "C:\SO TESTING\1 (2).csv"
c = "C:\SO TESTING\1 (3).csv"
d = "C:\SO TESTING\1 (4).csv"
e = "C:\SO TESTING\1 (5).csv"
f = "C:\SO TESTING\1 (6).csv"
g = "C:\SO TESTING\1 (7).csv"
h = "C:\SO TESTING\1 (8).csv"
i = "C:\SO TESTING\1 (9).csv"
j = "C:\SO TESTING\1 (10).csv"
k = "C:\SO TESTING\1 (11).csv"
l = "C:\SO TESTING\1 (12).csv"
m = "C:\SO TESTING\1 (13).csv"
n = "C:\SO TESTING\1 (14).csv"
o = "C:\SO TESTING\1 (15).csv"
p = "C:\SO TESTING\1 (16).csv"
q = "C:\SO TESTING\1 (17).csv"
r = "C:\SO TESTING\1 (18).csv"
s = "C:\SO TESTING\1 (19).csv"
t = "C:\SO TESTING\1 (20).csv"
If Dir(a) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J1") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=a
Workbooks("CONTROL").Sheets("Sheet1").Range("J1") = "AVAILABLE"
Workbooks("1 (1).csv").Worksheets("1 (1)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

ActiveCell.Offset67(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K1") = "PROCESSED"
Workbooks("1 (1).csv").Close SaveChanges:=False
End If
If Dir(b) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J2") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=b
Workbooks("CONTROL").Sheets("Sheet1").Range("J2") = "AVAILABLE"
Workbooks("1 (2).csv").Worksheets("1 (2)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K2") = "PROCESSED"
Workbooks("1 (2).csv").Close SaveChanges:=False
End If
If Dir(c) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J3") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=c
Workbooks("CONTROL").Sheets("Sheet1").Range("J3") = "AVAILABLE"
Workbooks("1 (3).csv").Worksheets("1 (3)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K3") = "PROCESSED"
Workbooks("1 (3).csv").Close SaveChanges:=False
End If
If Dir(d) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J4") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=d
Workbooks("CONTROL").Sheets("Sheet1").Range("J4") = "AVAILABLE"
Workbooks("1 (4).csv").Worksheets("1 (4)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K4") = "PROCESSED"
Workbooks("1 (4).csv").Close SaveChanges:=False
End If
If Dir(e) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J5") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J5") = "AVAILABLE"
Workbooks.Open Filename:=e
Workbooks("1 (5).csv").Worksheets("1 (5)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("CONTROL").Sheets("Sheet1").Range("K5") = "PROCESSED"
Workbooks("1 (5).csv").Close SaveChanges:=False
End If
If Dir(f) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J6") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J6") = "AVAILABLE"
Workbooks.Open Filename:=f
Workbooks("1 (6).csv").Worksheets("1 (6)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K6") = "PROCESSED"
Workbooks("1 (6).csv").Close SaveChanges:=False
End If
If Dir(g) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J7") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J7") = "AVAILABLE"
Workbooks.Open Filename:=g
Workbooks("1 (7).csv").Worksheets("1 (7)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K7") = "PROCESSED"
Workbooks("1 (7).csv").Close SaveChanges:=False
End If
If Dir(h) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J8") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J8") = "AVAILABLE"
Workbooks.Open Filename:=h
Workbooks("1 (8).csv").Worksheets("1 (8)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K8") = "PROCESSED"
Workbooks("1 (8).csv").Close SaveChanges:=False
End If
If Dir(i) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J9") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J9") = "AVAILABLE"
Workbooks.Open Filename:=i
Workbooks("1 (9).csv").Worksheets("1 (9)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K9") = "PROCESSED"
Workbooks("1 (9).csv").Close SaveChanges:=False
End If
If Dir(j) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J10") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J10") = "AVAILABLE"
Workbooks.Open Filename:=j
Workbooks("1 (10).csv").Worksheets("1 (10)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K10") = "PROCESSED"
Workbooks("1 (10).csv").Close SaveChanges:=False
End If
If Dir(k) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J11") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J11") = "AVAILABLE"
Workbooks.Open Filename:=k
Workbooks("1 (11).csv").Worksheets("1 (11)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K12") = "PROCESSED"
Workbooks("1 (12).csv").Close SaveChanges:=False
End If
If Dir(m) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J13") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J13") = "AVAILABLE"
Workbooks.Open Filename:=m
Workbooks("1 (13).csv").Worksheets("1 (13)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K14") = "PROCESSED"
Workbooks("1 (14).csv").Close SaveChanges:=False
End If
If Dir(o) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J15") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=o
Workbooks("1 (15).csv").Worksheets("1 (15)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J15") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K15") = "PROCESSED"
Workbooks("1 (15).csv").Close SaveChanges:=False
End If
If Dir(p) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J16") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=p
Workbooks("1 (16).csv").Worksheets("1 (16)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J16") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K16") = "PROCESSED"
Workbooks("1 (16).csv").Close SaveChanges:=False
End If
If Dir(q) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J17") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=q
Workbooks("1 (17).csv").Worksheets("1 (17)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J17") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K17") = "PROCESSED"
Workbooks("1 (17).csv").Close SaveChanges:=False
End If
If Dir(r) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J18") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=r
Workbooks("1 (18).csv").Worksheets("1 (18)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J18") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K18") = "PROCESSED"
Workbooks("1 (18).csv").Close SaveChanges:=False
End If
If Dir(s) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J19") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=s
Workbooks("1 (19).csv").Worksheets("1 (19)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J19") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K19") = "PROCESSED"
Workbooks("1 (19).csv").Close SaveChanges:=False
End If
If Dir(t) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J20") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=t
Workbooks("1 (20).csv").Worksheets("1 (20)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J20") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K20") = "PROCESSED"
Workbooks("1 (20).csv").Close SaveChanges:=False
End If
End Sub
Workbooks("CONTROL").Sheets("Sheet1").Range("J:K") = ""
Application.DisplayAlerts = False
a = "C:\SO TESTING\1 (1).csv"
b = "C:\SO TESTING\1 (2).csv"
c = "C:\SO TESTING\1 (3).csv"
d = "C:\SO TESTING\1 (4).csv"
e = "C:\SO TESTING\1 (5).csv"
f = "C:\SO TESTING\1 (6).csv"
g = "C:\SO TESTING\1 (7).csv"
h = "C:\SO TESTING\1 (8).csv"
i = "C:\SO TESTING\1 (9).csv"
j = "C:\SO TESTING\1 (10).csv"
k = "C:\SO TESTING\1 (11).csv"
l = "C:\SO TESTING\1 (12).csv"
m = "C:\SO TESTING\1 (13).csv"
n = "C:\SO TESTING\1 (14).csv"
o = "C:\SO TESTING\1 (15).csv"
p = "C:\SO TESTING\1 (16).csv"
q = "C:\SO TESTING\1 (17).csv"
r = "C:\SO TESTING\1 (18).csv"
s = "C:\SO TESTING\1 (19).csv"
t = "C:\SO TESTING\1 (20).csv"
If Dir(a) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J1") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=a
Workbooks("CONTROL").Sheets("Sheet1").Range("J1") = "AVAILABLE"
Workbooks("1 (1).csv").Worksheets("1 (1)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K1") = "PROCESSED"
Workbooks("1 (1).csv").Close SaveChanges:=False
End If
If Dir(b) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J2") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=b
Workbooks("CONTROL").Sheets("Sheet1").Range("J2") = "AVAILABLE"
Workbooks("1 (2).csv").Worksheets("1 (2)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K2") = "PROCESSED"
Workbooks("1 (2).csv").Close SaveChanges:=False
End If
If Dir(c) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J3") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=c
Workbooks("CONTROL").Sheets("Sheet1").Range("J3") = "AVAILABLE"
Workbooks("1 (3).csv").Worksheets("1 (3)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K3") = "PROCESSED"
Workbooks("1 (3).csv").Close SaveChanges:=False
End If
If Dir(d) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J4") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=d
Workbooks("CONTROL").Sheets("Sheet1").Range("J4") = "AVAILABLE"
Workbooks("1 (4).csv").Worksheets("1 (4)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K4") = "PROCESSED"
Workbooks("1 (4).csv").Close SaveChanges:=False
End If
If Dir(e) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J5") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J5") = "AVAILABLE"
Workbooks.Open Filename:=e
Workbooks("1 (5).csv").Worksheets("1 (5)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("CONTROL").Sheets("Sheet1").Range("K5") = "PROCESSED"
Workbooks("1 (5).csv").Close SaveChanges:=False
End If
If Dir(f) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J6") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J6") = "AVAILABLE"
Workbooks.Open Filename:=f
Workbooks("1 (6).csv").Worksheets("1 (6)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K6") = "PROCESSED"
Workbooks("1 (6).csv").Close SaveChanges:=False
End If
If Dir(g) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J7") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J7") = "AVAILABLE"
Workbooks.Open Filename:=g
Workbooks("1 (7).csv").Worksheets("1 (7)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K7") = "PROCESSED"
Workbooks("1 (7).csv").Close SaveChanges:=False
End If
If Dir(h) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J8") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J8") = "AVAILABLE"
Workbooks.Open Filename:=h
Workbooks("1 (8).csv").Worksheets("1 (8)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K8") = "PROCESSED"
Workbooks("1 (8).csv").Close SaveChanges:=False
End If
If Dir(i) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J9") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J9") = "AVAILABLE"
Workbooks.Open Filename:=i
Workbooks("1 (9).csv").Worksheets("1 (9)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K9") = "PROCESSED"
Workbooks("1 (9).csv").Close SaveChanges:=False
End If
If Dir(j) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J10") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J10") = "AVAILABLE"
Workbooks.Open Filename:=j
Workbooks("1 (10).csv").Worksheets("1 (10)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K10") = "PROCESSED"
Workbooks("1 (10).csv").Close SaveChanges:=False
End If
If Dir(k) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J11") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J11") = "AVAILABLE"
Workbooks.Open Filename:=k
Workbooks("1 (11).csv").Worksheets("1 (11)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K11") = "PROCESSED"
Workbooks("1 (11).csv").Close SaveChanges:=False
End If
If Dir(l) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J12") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J12") = "AVAILABLE"
Workbooks.Open Filename:=l
Workbooks("1 (12).csv").Worksheets("1 (12)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K12") = "PROCESSED"
Workbooks("1 (12).csv").Close SaveChanges:=False
End If
If Dir(m) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J13") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J13") = "AVAILABLE"
Workbooks.Open Filename:=m
Workbooks("1 (13).csv").Worksheets("1 (13)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K13") = "PROCESSED"
Workbooks("1 (13).csv").Close SaveChanges:=False
End If
If Dir(n) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J14") = "UNAVAILABLE"
Else
Workbooks("CONTROL").Sheets("Sheet1").Range("J14") = "AVAILABLE"
Workbooks.Open Filename:=n
Workbooks("1 (14).csv").Worksheets("1 (14)").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K14") = "PROCESSED"
Workbooks("1 (14).csv").Close SaveChanges:=False
End If
If Dir(o) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J15") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=o
Workbooks("1 (15).csv").Worksheets("1 (15)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J15") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K15") = "PROCESSED"
Workbooks("1 (15).csv").Close SaveChanges:=False
End If
If Dir(p) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J16") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=p
Workbooks("1 (16).csv").Worksheets("1 (16)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J16") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K16") = "PROCESSED"
Workbooks("1 (16).csv").Close SaveChanges:=False
End If
If Dir(q) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J17") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=q
Workbooks("1 (17).csv").Worksheets("1 (17)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J17") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K17") = "PROCESSED"
Workbooks("1 (17).csv").Close SaveChanges:=False
End If
If Dir(r) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J18") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=r
Workbooks("1 (18).csv").Worksheets("1 (18)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J18") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select

Workbooks("CONTROL").Sheets("Sheet1").Range("K18") = "PROCESSED"
Workbooks("1 (18).csv").Close SaveChanges:=False
End If
If Dir(s) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J19") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=s
Workbooks("1 (19).csv").Worksheets("1 (19)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J19") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K19") = "PROCESSED"
Workbooks("1 (19).csv").Close SaveChanges:=False
End If
If Dir(t) = "" Then
Workbooks("CONTROL").Sheets("Sheet1").Range("J20") = "UNAVAILABLE"
Else
Workbooks.Open Filename:=t
Workbooks("1 (20).csv").Worksheets("1 (20)").Activate
Workbooks("CONTROL").Sheets("Sheet1").Range("J20") = "AVAILABLE"
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Columns("H:J").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.FormulaR1C1 = " "
Columns("A:I").Select
ActiveSheet.Range("$A:$I").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6,
7, 8, 9) _
, Header:=xlYes
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("E:E").Select
Selection.FormulaR1C1 = " "
Application.Goto Reference:="R1000C1"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Workbooks("SO_VALIDATION.xlsx").Worksheets("Sheet2").Activate
Application.Goto Reference:="R15000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Workbooks("CONTROL").Sheets("Sheet1").Range("K20") = "PROCESSED"
Workbooks("1 (20).csv").Close SaveChanges:=False
End If
End Sub