Hi,
Perhaps if your header has a space or something you can put between the two sub headings then the following would work. You would need to put getStrItem(strData, iPosition, strDelim) in the relevant cells where you wanted the split, strDelim is "_" or "." (to split the two sub headings out of the heading.
Function getStrItem(strData, iPosition, strDelim) As String 'Return the data in position iPosition of the string
Dim iElement() As String
iElement = Split(strData, strDelim, -1)
getStrItem = iElement(iPosition - 1)
End Function 'getStrItem
Don't know if this is what you need but it may be of some help. I would not use this function if you have loads of headings to split because it can get quite slow.
Cheers, Alistair