View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Seanie Seanie is offline
external usenet poster
 
Posts: 202
Default ThisWorkbook populate with Code Q

Would anyone know what the part-code below debugs at "FindWindow" -
I'm using Excel 2007 and code worked perfectly in 2003

Sub Populate_TW()

Dim StartLine As Long
Dim msg1 As String, msg2 As String

Dim VBEHwnd As Long
On Error GoTo ErrH:
Application.VBE.MainWindow.Visible = False
VBEHwnd = FindWindow("wndclass_desked_gsk", _
Application.VBE.MainWindow.Caption)
If VBEHwnd Then
LockWindowUpdate VBEHwnd
End If
.......
........
End Sub