The easiest way is to use an input box something like this...

Sub Test()

Sheets("Sheet1").Range("A1:A10").Value = InputBox("Please enter the
year", _
"Report Year")
End Sub
--
HTH...

Jim Thomlinson


"goplayoutside" wrote:

I want to prompt a user to enter a year, such as 1999, then fill a range of
cells in a column while a macro is running. Is this possible and how would I
do it?

Thank you.