Not Allow Empty Userform Fields

Originally Posted by snb

Private departmenttxt_Change()
  Add.visible=department.text<>""
  if add.visible then A_check
end sub

Private firsttxt_Change()
  Add.visible=first.text<>""
  if add.visible then A_check
end sub

Private lasttxt_Change()
  Add.visible=last.text<>""
  if add.visible then A_check
end sub

Private A_check()
 for each ct in controls
   if typename(ct)="Textbox" and ct.text="" then 
     add.visible=false
     end sub
   end if
 next
End sub

--------------------------

Private Sub add_Click()
  Cells(Rows.Count, 12).End(xlUp).offset(2,-11).resize(,16)=array(departmenttxt.Value,firsttxt.Value,lasttxt.Value,emailtxt.Value,phonetxt.Value,notxt.Value,daytxt.Value,monthtxt.Value,Me.yeartxt.Value,timeslottxt.Value,nowtxt.Value,timetxt.Value,notesform.notetxt.Value,vipbtn.Value,monobtn.Value,bookedbox.Value)
End Sub

I don't understand this code. But it is VERY closely related to something I want to do. Could you post a generalized code to loop through 10 TextBoxes on a UserForm1; checking that every textbox has a value before proceeding to further functions?