Thanks Tom. I am assuming that I need to also put this in
the CommandButton1 that will set off the calculation?

But I get a Compile Error stating Sub or function not
defined. If Not istr(sStr,.....

Any thoughts or am I doing this wrong.

Pete W

-----Original Message-----
sStr = "#" & trim(textbox1) & "#" & trim(textbox2) & "#"
& _
trim(Textbox3) & "#" & trim(Textbox4) & "#"
sStr1 = Application.substitute(application.substitute
(sStr,"#",""),".","")
if not istr(sStr,"##") and isnumeric(sStr) then
Textbox5 = cdbl(Textbox1) + cdbl(Textbox2) ^ cdbl
(textbox3) / cdbl(textbox4)
End If


Worksheets("Sheet5").Range("1:10,12:12,15:20").hi dden =
True

--
Regards,
Tom Ogilvy


Pete wrote in
message
...
Hello everyone. I hope someone can help?

I have created a Userform that has 8 input boxes in it.
On
the first 4 boxes I tell users to input specific info to
calculate the specified formula from Userform1.

Is there a way to calculate the formula in the same
userform? If not how do I extract the info in boxes 1-4
to
the spreadsheet to add the formula. In the future I want
to hide and unhide parts of the sreadsheet that are not
used so it looks cean and orderly, how do you add this
to
the userform functionality?

TIA
Pete


.