The following shows how the form is set up. Ring any bells
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,
ByVal lpWindowName As String) As Lon
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Lon
Public Sub SetParentToExcel(
Level = Level + 1: StackString = StackString & "(ChartSelectorMenu:SetParentToExcel)": Debug.Print CStr(Level) & StackStrin
Dim XLHWnd As Lon
Dim MeHWnd As Lon
On Error Resume Nex
XLHWnd = FindWindow("XLMAIN", App.Caption
MeHWnd = FindWindow("ThunderRT6DFrame", Me.Caption
SetParent MeHWnd, XLHWn
Level = Level - 1: StackString = Mid(StackString, 1, InStrRev(StackString, "(", -1, 1) - 1): Debug.Print CStr(Level) & StackStrin
End Sub