I have an addin which opens a 2nd wbk with 3 Forms buttons on sh1 of the wbk.
Two buttons work as expected. The 3rd requires a second click (not
dbl-click, but two single clicks ) to make it work. The first click causes
the screen to flicker, so it's doing something. The second click fires it
correctly. Why 2 clicks ?

Public Sub ShutdownApplication()

' Ignore any errors during shutdown.
On Error Resume Next
gbShutdownInProgress = True

With Application
.DisplayFormulaBar = True
.Workbooks(gsFILE_RENTAL_APPL).Close False
'Restore the state of the Excel environment
Call RestoreExcelSettings

' If there are no workbooks left open, quit Excel
' Otherwise just close this workbook.
If lCountVisibleWorkbooks() = 0 Then
ThisWorkbook.Saved = True
.Quit
Else
ThisWorkbook.Close False
End If
End With
End Sub

Have you tried setting a breakpoint in the button click event and stepping
through with the debugger yet? It may be that it really is performing the
event the first time you click the button, but may be breaking out due to an
error.

"cush" wrote:

I have an addin which opens a 2nd wbk with 3 Forms buttons on sh1 of the wbk.
Two buttons work as expected. The 3rd requires a second click (not
dbl-click, but two single clicks ) to make it work. The first click causes
the screen to flicker, so it's doing something. The second click fires it
correctly. Why 2 clicks ?

Public Sub ShutdownApplication()

' Ignore any errors during shutdown.
On Error Resume Next
gbShutdownInProgress = True

With Application
.DisplayFormulaBar = True
.Workbooks(gsFILE_RENTAL_APPL).Close False
'Restore the state of the Excel environment
Call RestoreExcelSettings

' If there are no workbooks left open, quit Excel
' Otherwise just close this workbook.
If lCountVisibleWorkbooks() = 0 Then
ThisWorkbook.Saved = True
.Quit
Else
ThisWorkbook.Close False
End If
End With
End Sub

Yes, and I tried replacing
On Error Resume Next
with
Stop

still the first click just flickered the active cell without running the sub.

The 2nd click ran the code to line 1 (Stop)
Stepping through caused no error.

??????????????????

"Charlie" wrote:

Have you tried setting a breakpoint in the button click event and stepping
through with the debugger yet? It may be that it really is performing the
event the first time you click the button, but may be breaking out due to an
error.

"cush" wrote:

I have an addin which opens a 2nd wbk with 3 Forms buttons on sh1 of the wbk.
Two buttons work as expected. The 3rd requires a second click (not
dbl-click, but two single clicks ) to make it work. The first click causes
the screen to flicker, so it's doing something. The second click fires it
correctly. Why 2 clicks ?

Public Sub ShutdownApplication()

' Ignore any errors during shutdown.
On Error Resume Next
gbShutdownInProgress = True

With Application
.DisplayFormulaBar = True
.Workbooks(gsFILE_RENTAL_APPL).Close False
'Restore the state of the Excel environment
Call RestoreExcelSettings

' If there are no workbooks left open, quit Excel
' Otherwise just close this workbook.
If lCountVisibleWorkbooks() = 0 Then
ThisWorkbook.Saved = True
.Quit
Else
ThisWorkbook.Close False
End If
End With
End Sub