ActivePage.Layers suggestions

[byteme67]

I have designed a form with 5 radio buttons. One button represents a location which in turn turns on the layer for that address location. It also turns off all other location layers. Following is the code for that user form. Question is there a shorter way to write this? And do I really have to write code for each radio button?

Private Sub btnFM_change()
'unselect all other location layers except Fort Myers

    With ActivePage.Layers("ft myers")
            .Visible = True
            .Printable = True
            .Editable = True
    End With
    
    With ActivePage.Layers("orlando")
            .Visible = False
            .Printable = False
            .Editable = False
    End With
    With ActivePage.Layers("tampa")
            .Visible = False
            .Printable = False
            .Editable = False
    End With
    With ActivePage.Layers("miami")
            .Visible = False
            .Printable = False
            .Editable = False
    End With
    With ActivePage.Layers("pt charlotte")
            .Visible = False
            .Printable = False
            .Editable = False
    End With

End Sub

[ddonnahoe]

You could use a Select Case and create a separate sub that gets called on RadioButton_Change event. Put your With.ActiveLayers section in the new sub and have each one called based on the condition of your radio buttons.