VBA Radio Button Selection in IE

[mvemjsun]

I am trying to select a drop down radio button in Internet Explorer but keep receiving the "Run-time error '424': Object Required" error.

Here is the code I am using

Sub Select_Cartons()

    ' Set a reference to 'Microsoft Internet Controls' under the VBA Tools\References menu
    Dim IE As InternetExplorer
    
    Set IE = New InternetExplorer
    
    IE.navigate "http://qfocus.odfl.com/ibi_apps/bip/portal/uat_TEST_IBPlan_Appt"
    IE.Visible = True
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    
    IE.document.all("rd_drop_SHIPTYPE").Item(1).Checked = True
        
End Sub

Here is the HTML Code

ShipmentsAll My DeliveriesAll My Appointments/RADAll My AppointmentsAll My Must Arrive By

</label></td></tr></tbody></table></div>

 

[mvemjsun]

All My DeliveriesAll My Appointments/RADAll My AppointmentsAll My Must Arrive By

</label></td></tr></tbody></table>
</div>

 

[mvemjsun]

[TABLE="width: 100%"]
<tbody>[TR]
[TD]<label id="rd_drop_SHIPTYPE_LABEL_0" style="cursor: default;" for="radio30"><input tabindex="21" id="rd_drop_SHIPTYPE0" type="radio" checked="" value="Deliveries" displaytext="All My Deliveries" name="rd_drop_SHIPTYPE">All My Deliveries</label>[/TD]
[/TR]
[TR]
[TD]<label id="rd_drop_SHIPTYPE_LABEL_1" style="cursor: default;" for="rd_drop_SHIPTYPE1"><input tabindex="21" id="rd_drop_SHIPTYPE1" type="radio" value="AppointRAD" displaytext="All My Appointments/RAD" name="rd_drop_SHIPTYPE">All My Appointments/RAD</label>[/TD]
[/TR]
[TR]
[TD]<label id="rd_drop_SHIPTYPE_LABEL_2" style="cursor: default;" for="rd_drop_SHIPTYPE2"><input tabindex="21" id="rd_drop_SHIPTYPE2" type="radio" value="Appointments" displaytext="All My Appointments" name="rd_drop_SHIPTYPE">All My Appointments</label>[/TD]
[/TR]
[TR]
[TD]<label id="rd_drop_SHIPTYPE_LABEL_3" style="cursor: default;" for="rd_drop_SHIPTYPE3"><input tabindex="21" id="rd_drop_SHIPTYPE3" type="radio" value="RAD" displaytext="All My Must Arrive By" name="rd_drop_SHIPTYPE">All My Must Arrive By[/HTML]</label>[/TD]
[/TR]
</tbody>[/TABLE]