Private Sub CommandButton1_Click()

    Dim 컨트롤 As Control
    Dim 연령대 As Range
    
    Set 연령대 = Range("E3")
    
    연령대.ClearContents
        
    For Each 컨트롤 In UserForm1.Controls
    
        If TypeName(컨트롤) = "OptionButton" Then
        
            If 컨트롤.Value = True Then

                연령대.Value = 컨트롤.Caption
                Exit For
                            
            End If
        
        End If
    
    Next

End Sub