Input box
 

How do I get this to place information onto a work sheet called committee
cell b10?

Private Sub CommandButton9_Click()
Dim MyInput
MyInput = InputBox("Enter your name")
MsgBox MyInput

End Sub


Thanks
Greg

Input box
 

Greg, here is one way,
Sheets("committee").Range("B10") = InputBox("Enter your name")


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Greg B" wrote in message
...
How do I get this to place information onto a work sheet called committee
cell b10?

Private Sub CommandButton9_Click()
Dim MyInput
MyInput = InputBox("Enter your name")
MsgBox MyInput

End Sub


Thanks
Greg

Input box
 

OK Thanks for your help

Greg
"Paul B" wrote in message
...
Greg, here is one way,
Sheets("committee").Range("B10") = InputBox("Enter your name")


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Greg B" wrote in message
...
How do I get this to place information onto a work sheet called
committee
cell b10?

Private Sub CommandButton9_Click()
Dim MyInput
MyInput = InputBox("Enter your name")
MsgBox MyInput

End Sub


Thanks
Greg

Input box
 

Worksheets("committee").Range("B10").Value = MyInput

--

HTH

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


"Greg B" wrote in message
...
How do I get this to place information onto a work sheet called committee
cell b10?

Private Sub CommandButton9_Click()
Dim MyInput
MyInput = InputBox("Enter your name")
MsgBox MyInput

End Sub


Thanks
Greg

Input box
 

Thanks to both of you for the help

Greg
"Bob Phillips" wrote in message
...
Worksheets("committee").Range("B10").Value = MyInput

--

HTH

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


"Greg B" wrote in message
...
How do I get this to place information onto a work sheet called
committee
cell b10?

Private Sub CommandButton9_Click()
Dim MyInput
MyInput = InputBox("Enter your name")
MsgBox MyInput

End Sub


Thanks
Greg