Hi,

like this:

Sub test()
With ActiveSheet
.Range("a1").Value = InputBox("Enter a value for
A1", "Input Data Please!", 1)
.Range("a2").Value = InputBox("Enter a value for
A2", "Input Data Please!", 1)
.Range("a3").Value = InputBox("Enter a value for
A3", "Input Data Please!", 1)
End With
End Sub


Regards,

Jan Karel Pieterse
Excel TA/MVP

-----Original Message-----
Hi,
how do I programme dialogboxes where i put in values/text
to be entered in specified cells? What I would like to
have is an macro which presents an dialogbox where it
asks the user for a value or text and then waith until a
value has been entered before proceeding to the next
command in the macro.

Kind regards

Jonas
.