Hummm, not the most robust code – you may have to flick between the VBE and the Excel window, I don’t have time to develop it further, but it gets the job done for now.

Â

Â

[vba]Private Declare Function SetParent Lib “user32″ ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

Private Declare Function FindWindow Lib “user32″ Alias “FindWindowA” ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib “user32″ Alias “FindWindowExA” ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function SetForegroundWindow Lib “user32″ ( _
ByVal hWnd As Long) As Long

Private Declare Function SetWindowPos Lib “user32″ ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Public Sub GetIMWin()
Dim PWHand As Long
Dim CWHand As Long
Dim Res As Long

”’Get excel desktop handel
PWHand = FindWindowEx(Application.hWnd, 0&, “XLDESK”, vbNullString)
”’open VBE
If Application.VBE.MainWindow.Visible = False Then
Application.VBE.MainWindow.Visible = True
End If
”’open IM window if not open
If Application.VBE.Windows(“immediate”).Visible = False Then
Application.VBE.MainWindow.SetFocus
Application.SendKeys (“!G”) ”’oh send keys;-(
End If
”’Get IM window handel
CWHand = GetIM
”’Set IM as child of excel desktop  window
Res = SetParent(CWHand, PWHand)

Application.VBE.MainWindow.Visible = True

With Application.VBE.Windows(“immediate”)
.Visible = True
.Height = 100
.Width = 400
.Top = 100
.Left = 400
    End With
End Sub

Function GetIM() As Long
Dim VBEHand As Long
VBEHand = FindWindow(“wndclass_desked_gsk”, Application.VBE.MainWindow.Caption)
GetIM = FindWindowEx(VBEHand, 0&, “VbaWindow”, “immediate”)
If GetIM = 0 Then
GetIM = FindWindow(“VBFloatingPalette”, “immediate”)
End If
End Function[/vba]