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").hid den = 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