View Enhanced<--->Simple Wireframe

I have a very simple macro and I have an icon assigned to it and on a custom tool bar. When I click on the macro, it toggles the view between Wire Frame and Enhanced view. This macro can have a key assigned to it, as most other custom commands and macros can. (menu:Tools->Customization).

Here is the content of the simple macro:

------------------------------

Sub ToggleView()
    '
    ' Generated 12/04/2008
    '
    ' Description:
    '                Toggles between Enhanced with OverPrints view and
    '                WireFrame view
    '
    If ActiveWindow.ActiveView.Type = cdrWireframeView Then
        ActiveWindow.ActiveView.Type = cdrEnhancedViewWithOverprints
    Else
        ActiveWindow.ActiveView.Type = cdrWireframeView
    End If
End Sub

-----------------------------------