Sorry it was in the the microsoft.public.word.vba.customization newsgroup
where I responded with the following to your post there:
"Doug Robbins" <dkr@REMOVEmvps.org> wrote in message news:...
> Replace
> = ">100"
> with
> <> 100
> For your second question, are these bookmarks assigned to formfields in a
> protected document? If so
> See the article "How to validate the contents of a formfield in a Word
> form"
> at:
> http://word.mvps.org/FAQs/TblsFldsFms/ValidateFFields.htm
> Hope this helps.
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> Doug Robbins - Word MVP
> "Nick Giardelli" <Nick Giardelli@discussions.microsoft.com> wrote in
> message
> news:ED4C7C81-469D-4920-AAF4-FDC8B82D0760@microsoft.com...
> >I have a Word 2003 Template that I'm trying to complete. The problem
> > that I'm having is this.
> > I have a userform and on this form I have 6 Text Boxes and OK Button
> > and a Cancel button. These boxes by default need to have a value of 0
> > in all six. The users need to type in these boxes a number from 1 to
> > 100. The end result will be all 6 boxes have to equal 100%. So when the
> > user click the OK button if these 6 boxes equal less then 100% a
> > Message boxes needs to pop up and if its more then 100% the same
> > message box will pop up telling the user that it does not equal 100%.
> > This is what I, but it does not work. :(
> > Private Sub CommandButton2_Click()
> > If origattysplit.TextBox8.Value + origattysplit.TextBox9.Value +
> > origattysplit.TextBox10.Value + origattysplit.TextBox11.Value +
> > origattysplit.TextBox12.Value + origattysplit.TextBox13.Value = ">100"
> > Then MsgBox "This must Equls 100%" else origattysplit.Hide
> > End If
> > End Sub
> > So how far am I off on this?
> > Also How do you make a field required. Example How do I make all of
> > these field required.
> > .Bookmarks("bmkName").Range.Text = clientnamebox.Value
> > .Bookmarks("bmkAddress1").Range.Text = address1box.Value
> > .Bookmarks("bmkAddress2").Range.Text = address2box.Value
> > .Bookmarks("bmkAddress3").Range.Text = address3box.Value
> > .Bookmarks("bmkAddress4").Range.Text = address4box.Value
> > .Bookmarks("bmkCity").Range.Text = citybox.Value
> > .Bookmarks("bmkState").Range.Text = statebox.Value
> > .Bookmarks("bmkZip").Range.Text = zipbox.Value
> > Would someone help me out, I am losing all my hair over this crap...
> > Thank you for taking the time to read this post.
> > Nick

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
>I know I'm old but I look in word.vba.beginners and could not find what I'm
> looking for. Maybe you could help me put my finger on it. Thanks Again
> Doug
>
> Nick