TextFrame.ContainingRange (Word)

Returns a Range object that represents the entire story in a series of shapes with linked text frames that the specified text frame belongs to.

Dim rngStory As Range 
 
Set rngStory = ActiveDocument.Shapes("TextBox 1") _ 
 .TextFrame.ContainingRange 
 
rngStory.CheckSpelling