Public Function ConfirmActionQueries(bOption As Boolean) As Variant
'*************************************************************
' ConfirmActionQueries(bOption As Boolean) As Variant
'
' If bOption is False, turns off the "Confirm Action Queries"
' option in the Edit/Find tab under Tools, Options. Otherwise,
' the option is turned on. Returns the prior option setting.
'*************************************************************
On Error GoTo Err_ConfirmActionQueries
ConfirmActionQueries = Application.GetOption("Confirm Action Queries")
If bOption = False Then
 Application.SetOption "Confirm Action Queries", False
Else
 Application.SetOption "Confirm Action Queries", True
End If

Exit_ConfirmActionQueries:
 Exit Function
 
Err_ConfirmActionQueries:
 MsgBox Err.Description
 Resume Exit_ConfirmActionQueries

End Function

