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.

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.

Sub test()
Dim Yr As Long
MsgBox "Code runs"
Yr = Val(InputBox("Which year ?", _
"Entry", Year(Date)))
Select Case Yr
Case 1 To Year(Date)
MsgBox Yr & " was a very good year"
Case Year(Date) + 1 To 2999
MsgBox Yr & " is future"
Case Else
End Select
End Sub

You're welcome.

"goplayoutside" skrev i melding
...
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.

AWESOME. Thank you.

"Jim Thomlinson" wrote:

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.