Hi There
I have just upgraded Excel2003 to 2007. Sys Win XP Pro
The following worked code perfectly in 2003. After installing 2007 a MVB dbx
Run-time error "445" Object doesn't support this action, shows. Can anyone
help me on this. PS I'm a complete novice. TIV Brian


Sub load_newfile()
Dim fm As FileManager
Set fm = New FileManager
Dim default As Defaults
Set default = New Defaults
If fm.CloseJob 0 Then
Application.Windows("TQLMSTER.XLS").Activate
Load frmLoad
frmLoad.Show
If frmLoad.ActiveControl.Name = "cmdLoad" Then
fm.NewJob (frmLoad.ListBox1.Text)
Application.Windows(Trim(frmLoad.ListBox1.Text)).A ctivate
Range("A1:J500").Select
Selection.Copy
Application.Windows(default.ImpSheet).Activate
Worksheets("import-work").Activate
Range("A1:J500").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(frmLoad.ListBox1.Text).Close
Save_As
transfer_Qty
End If
Unload frmLoad
End If
End Sub