Place Value From Input Box to Cells

Posted by Andrew Cheung on July 30, 2001 6:00 AM

I can call out the input box message, but How can I place the Value of the Input box, say into Sheets1 cellB1??

Thank You

Posted by Jerid on July 30, 2001 7:26 AM

Here is one way.

dim sData as String

sData = Inputbox("Enter your data")

Sheets1.Range("B1").Value = sData 'Sheet CodeName
OR
Worksheets("Sheets1").Range("B1").Value = sData 'Tab Name