Input Prompt Box Macro

[seankwest]

Hello,

I would like to create an input prompt that would ask the user for a value and then it would take that value and input into a specific cell. For example:

What the the current month?
The user could type "3"
And then it would replace the value in Cell P3 with "3"

What is the current year?
The user could type "2012"
And then it would replace the value in Cell P4 with "2012"

What was last month?
The used could enter "'Feb 12"
And then it would replace the value in Cell P5 with "'Feb 12"

What was same month last year?
The used could enter "'Mar 11"
And then it would replace the value in Cell P5 with "'Mar 11"

Any ideas?

 

[VoG]

Try like this

Range("P3").Value = InputBox("What is the current month")

 

[seankwest]

This works perfect. Thank you for the time saver!