Sub AutoFormatSmartQuotesToggle()
' Kevin Walker - updated 2025/11/03

Dim QuoteSetting As Boolean

'Check what the current setting is
    QuoteSetting = Options.AutoFormatAsYouTypeReplaceQuotes

'Apply the opposite setting (NOT)
    Options.AutoFormatAsYouTypeReplaceQuotes = Not QuoteSetting

'Use the opposite (NOT) of the setting at the start of the macro to determine the end state and produce text for the statusbar
    If Not QuoteSetting = True Then
        StatusBarText = "ON"
    Else
        StatusBarText = "OFF"
    End If

'Put a message in the status bar to confirm the new current setting
    Application.StatusBar = "Autoformat Smart Quotes " & StatusBarText

End Sub