User Range Selection Input Box
Posted: Sun Jun 21, 2020 7:26 am
Public Sub User_Range_Selection()
' 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
' 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