Something strange is happening...!

[Glove303]

I have a procedure that works fine when it is called from another procedure (no variables passed between then 2), and works fine when I step through it manually. However, it just "gives" up when I run it directly.

It fails at the same line of code, but does not report an error, and as I say, stepping through it manually causes now problem.

OldTemp = Application.GetOpenFilename(FileFilter:= _
"Excel Files (*.xls), *.xls", Title:="Please select a file")

If OldTemp = False Then Exit Sub

Application.EnableEvents = False
Set OldTT = Workbooks.Open(OldTemp)
Application.EnableEvents = True

It fails on the penultimate line (Set OldTT = Workbooks.Open(OldTemp))


James.

 

[Glove303]

No one?

 

[RoryA]

How are you running it when you run it directly? From a keyboard shortcut?

 

[Glove303]

Yes exactly that

 

[RoryA]

Does your shortcut involve the Shift key, and does the workbook that you are opening have code in the Open event? If so, try a shortcut that does not use Shift.

 

[Glove303]

Does your shortcut involve the Shift key, and does the workbook that you are opening have code in the Open event? If so, try a shortcut that does not use Shift.

Yes and Yes!

It is Ctl + Shift + U

And the workbook has a procedure in the open event.

Is this an Excel bug? I will change the shortcut.

 

[RoryA]

Yes, it's a bug. It relates to the use of the Shift key to prevent event code running when you open a file manually.

 

[Glove303]

I thought it had to a bug! Many thanks, you sure know your Excel

 

[RoryA]

I know a few bits and pieces, yes.