Write results of inputbox vertical, dont accept text but numbers only

Need some help with an inputbox.....my product code is 4 numbers. Currently it write the value in B2. I need the value to be written on the 4 blue cells.Also it must only accept numbers and not text....Currently this accept text. Rep given for a solution.See my sheet attached

Please Login or Register  to view this content.

Thank you

I'm not VBA savvy put perhaps you should Dim response as something else than a string?

Try

Please Login or Register  to view this content.

Originally Posted by bakerman2

Will this work for you ?

Please Login or Register  to view this content.

Works flawlessly Thank you ++++++++ Rep

Originally Posted by jindon

Try

Please Login or Register  to view this content.

This works too Thank you Jindo ++++++ Rep