' Determine which element of an option button control array was selected' Returns -1 if no control has been selected' Use : OptSelected = GetSelectedOption(Option1)Function GetSelectedOption(Opt As Object) As Integer Dim i As Integer GetSelectedOption = -1 For i = Opt.LBound To Opt.UBound If Opt(i).Value Then GetSelectedOption = i Exit For End If NextEnd Function
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)