Private CheckBox1_AfterUpdate()
If CheckBox1 Then
ShippingAddress1 = BillingAddress1
ShippingAddress2 = BillingAddress2
ShippingCity = BillingCity
ShippingState = BillingState
ShippingZIP = BillingZIP
End If
End Sub
This assumes that all the references above are to bound controls on your form.