' To show an input box where the user can select a range
' Value Description
' 0 A formula
' 1 A number
' 2 Text (a string)
' 4 A logical value (True or False)
' 8 A cell reference, as a Range object
' 16 An error value, such as #N/A
' 64 An array of values
Dim rng As Range
Set rng = Application.InputBox("Enter the Year", Type:=8)
MsgBox rng.Address
End Sub
- Input_box.png (4.11 KiB) Viewed 10602 times