Sub ShowBreakdown()
Dim Ws1 As Long, iLoop As Long, Destination As Range
Dim sCSVheader As String, aSplitMe1 As Variant
Dim sCSVdata As String, aSplitMe2 As Variant
Ws1 = ActiveSheet.Index
sCSVheader = Worksheets(Ws1).Cells(1, 1)
sCSVdata = Worksheets(Ws1).Cells(2, 1)
'SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
'Split String (Populate Public Array: Row1-Headers)
'Split the delimited Cells (Header/Value - 1 row of values) using TAB as a delimiter
aSplitMe1 = Split(sCSVheader, vbTab)
aSplitMe2 = Split(sCSVdata, vbTab)
'Show the Label/Value in the Debug Window
For iLoop = LBound(aSplitMe1) To UBound(aSplitMe1)
Debug.Print aSplitMe1(iLoop) & " : " & aSplitMe2(iLoop)
Next iLoop 'SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
MsgBox "Done"
End Sub
Dim Ws1 As Long, iLoop As Long, Destination As Range
Dim sCSVheader As String, aSplitMe1 As Variant
Dim sCSVdata As String, aSplitMe2 As Variant
Ws1 = ActiveSheet.Index
sCSVheader = Worksheets(Ws1).Cells(1, 1)
sCSVdata = Worksheets(Ws1).Cells(2, 1)
'SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
'Split String (Populate Public Array: Row1-Headers)
'Split the delimited Cells (Header/Value - 1 row of values) using TAB as a delimiter
aSplitMe1 = Split(sCSVheader, vbTab)
aSplitMe2 = Split(sCSVdata, vbTab)
'Show the Label/Value in the Debug Window
For iLoop = LBound(aSplitMe1) To UBound(aSplitMe1)
Debug.Print aSplitMe1(iLoop) & " : " & aSplitMe2(iLoop)
Next iLoop 'SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
MsgBox "Done"
End Sub