Code stops on successful Workbook Open

[Scott Huish]

Hi, I have the following code.
The code completely stops if it successfully opens the workbook. No error, it just opens the workbook and then nothing else happens.
I have put in a checkpoint in the code to see if it actually gets that far and it only continues the code if the file did not exist.
Column A does contain valid dates in the workbook this code is running from. Any ideas?

Sub GetPressRun()
On Error Resume Next
Dim fp As String, cf As String, fn As String, dt As Date
Dim li As Range

Set li = Cells(ActiveCell.Row, 1)
dt = li
fp = "J:\Paper Sections\pressrun\"
fn = "Run Sheet (" & Format(dt, "m-d-yyyy") & ").xls"

If Dir(fp & fn) <> "" Then
    Workbooks.Open fp & fn
Else
    MsgBox "Press Run for date " & dt & " does not exist", vbExclamation
    Exit Sub
End If

'Checkpoint #1
cf = ActiveWorkbook.Name
MsgBox cf

With Workbooks(fn).Sheets(1)
    li.Offset(, 1) = .Range("E34")
    li.Offset(, 4) = .Range("E25")
    li.Offset(, 12) = .Range("E29") + .Range("E30")
End With

Workbooks(fn).Close False
End Sub

 

[joefrench]

Is this the only code (in this workbook) that this happens with?

 

[Scott Huish]

Yes, this is the only code in this workbook.

 

[joefrench]

Sounds (to me anyway) like your workbook is being opened w/o macros enabled. Have you tried adding a digital signature or checking your security level? Have you tried running other code?

 

[joefrench]

Sounds (to me anyway) like your workbook is being opened w/o macros enabled. Have you tried adding a digital signature or checking your security level? Have you tried running other code?

 

[Scott Huish]

I write and run all sorts of macros. Security Level is set to Low.

 

[Scott Huish]

OK. if I run the macro by hitting ALT-F8 and hitting Run, it works fine, but if I run it with a shortcut key it does not.

 

[schielrn]

What is the shortcut key? Does it involve shift? That will open a workbook in design mode I believe?

 

[Scott Huish]

Yes, CTRL-SHIFT-F.
I always use shifted shortcuts to avoid interfering with the normal shortcut keys.

 

[Jonmo1]

Well sounds like you're getting to the root of the problem. I have had that problem as well with the Shortcut key.

Back to one of my other posts here, about
ActiveWorkbook.ToggleFormsDesign

That turns ON Design Mode.
If someone could find a code to turn it OFF, that would be great.

I would think by the Name ToggleFormsDesign
That simply running it over and over would turn it On/Off/On/Off etc...

But it doesn't...I don't know why.
Anybody?

 

[schielrn]

I have done some testing and it seems that everytime I used shift as a shortcut to call a macro that opened a workbook it would open in design mode even with low security. So it looks that we need to find a solution to what Jonmo is getting at. I don't know why it does it.