Private Sub cmdOK_Click() Selection.Fields(1).Code.Text = "MACROBUTTON Update " & cboFood.Value Unload Me End Sub