Need macro that clears option buttons made with the control toolbox

try this

Sub Clear_Vehicle()
'
' Clear_Vehicle Macro
' Macro recorded 10/3/2013 by ONE-NET
'
    Dim shtTemp As Worksheet
    Dim ctlTemp As OLEObject
    Dim shpTemp As Shape
    Dim lngIndex As Long
    
    For Each shtTemp In ActiveWorkbook.Worksheets
        For Each ctlTemp In shtTemp.OLEObjects
            If TypeName(ctlTemp.Object) = "OptionButton" Then
                ctlTemp.Object.Value = False
            End If
        Next
        For Each shpTemp In shtTemp.Shapes
            If shpTemp.Type = msoGroup Then
                For lngIndex = 1 To shpTemp.GroupItems.Count
                    If TypeName(shpTemp.GroupItems(lngIndex).OLEFormat.Object.Object) = "OptionButton" Then
                        shpTemp.GroupItems(lngIndex).OLEFormat.Object.Object.Value = False
                    End If
                Next
            End If
        Next
    Next
    
    Range("D6:M6,M5,D14:E14,L24,D26:F26,D30:M30,F32:M32,D34:M34,E36:M36,G40:M40,G41:M41,E42:M42,B44:M44").ClearContents
    Range("D6:M6").Select
    
    
End Sub