Sub test()
MsgBox Selection.Address
MsgBox Selection.Parent.Name
MsgBox Selection.Parent.Parent.Name
End Sub


The last Msgbox will return the Workbook name (mon-embedded) or
the enclosing Word doc name & path ( embedded)
--
Gary''s Student - gsnu200720