dim myNames as Variant
dim iCtr as long
myNames = array("sheet1","sheet2","sheet99")

for ictr = lbound(mynames) to ubound(mynames)
worksheets(mynames(ictr)).range("a1").value = textbox1.text
next ictr

======
Depending on where/what that textbox is, you may want to qualify it, too.

worksheets("sheet77").TextBox1.Text
or
me.textbox1.text
???



bennyob wrote:

Thanks Bob
one more quick one
How do I get it to put the same text box value into several sheets, the
Array function I cannot get to work?
Cheers Ben

"Bob Phillips" wrote:

Worksheets("sheetname").Range("A1").Value = TextBox1.Text

etc.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bennyob" wrote in message
...
What is the simplest code for delivering numerical data from a text box to
a
specific location (no loops etc to find empty cells) in specific
worksheets?
I want several data entries from the same form to go to different
worksheets.
Any help will be greatly appreciated
Cheers Ben





--

Dave Peterson