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