Input Box Macro

Hi,

I want to create a Macro with an input box that tells a user to "Enter an S Name". The name entered will always go in cell A1. The input box will have an OK and a Cancel button.

That's it!

Thank You