Dim c As Control
For Each c In Controls
If TypeName(c) = "OptionButton" Then
Debug.Print c.Name, c.Value
End If
Next c

HTH,
Merjet