I was working with Nick Turner in a post here recently to unlink only linked Excel worksheets in a document.  Nick has a document where a textbox defines the background of the header and this textbox contains a frame and in the frame is the linked EXCEL field code of interest.

I have got to this point which will unlink a field in a textbox in the header of a plain document, but in the document Nick has it fails on the marked line:

Sub UnlinkExcel()
Dim oStoryRng As Word.Range
Dim oFld As Field
Dim oShp As Shape
Dim i As Long
Dim lngJunk As Long
lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
For Each oStoryRng In ActiveDocument.StoryRanges
 Do
 For Each oFld In oStoryRng.Fields
   If InStr(oFld.Code.Text, "Excel") > 0 Then oFld.Unlink
 Next oFld
 Select Case oStoryRng.StoryType
   Case 6, 7, 8, 9, 10, 11
     If oStoryRng.ShapeRange.Count > 0 Then
        For Each oShp In oStoryRng.ShapeRange
          If oShp.TextFrame.TextRange.Fields.Count > 0 Then  ********* fails here "The object does not support attached text."
            For i = oShp.TextFrame.TextRange.Fields.Count To 1 Step -1
              If InStr(oShp.TextFrame.TextRange.Fields(i).Code.Text, "Excel") > 0 Then oShp.TextFrame.TextRange.Fields(i).Unlink
            Next i
          End If
        Next oShp
       End If
     Case Else
       'Do Nothing
   End Select
 Set oStoryRng = oStoryRng.NextStoryRange
 Loop Until oStoryRng Is Nothing
Next
End Sub

Can anyone offer insight on how to drill down to the a field in a frame, in a textbox, in a header?  Thanks