If col = intCols - 1 Then
                                If Not blFootnote3 Then
                                    strAddress3 = Range(strStrtCell + _
                                      "1").Offset(i, col).Address
                                    strAddress3 = Replace(strAddress3, "$", _
                                    "JM")
                                    subFootnotes strAddress3, strLabel, _
                                    blRanks, "3", xmlS_CellBodyElement
                                    blFootnote3 = True
                                ElseIf blRanks Then
                                    subCrossRefElement strAddress3, "Footnote", _
                                      xmlS_CellBodyElement
                                End If
                            Else
                                subxmlText Range(strStrtCell + "1").Offset(i, _
                                  col).Value, xmlS_CellBodyElement
                            End If
                         Case 4
                            If col = intCols - 1 Then
                                If Not blFootnote4 Then
                                    strAddress4 = Range(strStrtCell + _
                                      "1").Offset(i, col).Address
                                    strAddress4 = Replace(strAddress4, "$", _
                                    "JM")
                                    subFootnotes strAddress4, strLabel, _
                                    blRanks, "4", xmlS_CellBodyElement
                                    blFootnote4 = True
                                Else
                                    subCrossRefElement strAddress4, "Footnote", _
                                      xmlS_CellBodyElement
                                End If
                            Else
                                subxmlText Range(strStrtCell + "1").Offset(i, _
                                  col).Value, xmlS_CellBodyElement
                            End If
                        Case Else
                            If Range(strStrtCell + "1").Offset(i, col).Value = _
                              "x4" Or Range(strStrtCell + "1").Offset(i, _
                              col).Value = "x8" Or Range(strStrtCell + _
                              "1").Offset(i, col).Value = "x16" Or _
                                Range(strStrtCell + "1").Offset(i, col).Value = _
                                "x4/x8" Or Range(strStrtCell + "1").Offset(i, _
                                col).Value = "x4/x16" Or Range(strStrtCell + _
                                "1").Offset(i, col).Value = "x8/x16" Then
 
                                subComponentNoteOrgFormat Range(strStrtCell + _
                                  "1").Offset(i, col).Value, _
                                  xmlS_CellBodyElement
                            ElseIf (strLabel = "FBDIMM") And (Range(strStrtCell _
                            + "1").Offset(i, col).Value <> "Total power") _
                            And (col > intCols - 2) Then
                                Set xml_PhysicalSymbolElement = _
                                xml.createElement("PhysicalSymbol")
                                If Left(strNoOfFootnotes(intNo), 3) = "VCC" Then
                                    subPhysicalValueElement Left( _
                                      strNoOfFootnotes(intNo), 1), _
                                      xml_PhysicalSymbolElement
                                    subSubscriptElement Mid(strNoOfFootnotes( _
                                    intNo), 2, 2), xml_PhysicalSymbolElement
                                    xmlS_CellBodyElement.appendChild _
                                    xml_PhysicalSymbolElement
                                    subxmlText Mid(strNoOfFootnotes(intNo), 4), _
                                    xmlS_CellBodyElement
                                Else
                                    subPhysicalValueElement Left(Range( _
                                      strStrtCell + "1").Offset(i, col).Value, _
                                      1), xml_PhysicalSymbolElement
                                    subSubscriptElement Mid(Range(strStrtCell + _
                                    "1").Offset(i, col).Value, 2, 2), _
                                    xml_PhysicalSymbolElement
                                    xmlS_CellBodyElement.appendChild _
                                    xml_PhysicalSymbolElement
                                    subxmlText Mid(Range(strStrtCell + _
                                    "1").Offset(i, col).Value, 4), _
                                    xmlS_CellBodyElement
                                End If
                            Else
                                subxmlText Range(strStrtCell + "1").Offset(i, _
                                  col).Value, xmlS_CellBodyElement
                            End If
                        End Select
                         intNo = intNo + 1
                        Wend
            End Select
 
        Next
        i = i + 1
    Wend
End Sub