why am i getting the error "object required" when i try to use this code?



Private Sub CommandButton1_Click()
Dim numberoption As Range

Sheets("Sheet3").Select
SweetenerOptions.Hide

Set numberoption = Application.InputBox("How many senarios would you
like to consider:", "Options")
numberoption.Value = number

If number = 1 Then
PriceChoices.Label1.Enabled = True
End If

If number = 2 Then
PriceChoices.Label1.Enabled = True
PriceChoices.Label2.Enabled = True
End If

if SweetenerOptions
isnt the code name of a worksheet (or a reference set to some object) then
that would raise the error.

Sub AA()
v = TypeName(Application.InputBox("How many senarios would you like to
consider:", "Options"))
Debug.Print v

End Sub

returns string, so you can't use

Set numberoption = Application.InputBox . . .

and this is backwards:

numberoption.Value = number

it would be
dim numberoption as string
numberoption = Application.InputBox
dim number as Long
nummber = clng(numberoption)

--
Regards,
Tom Ogilvy



"trini" wrote in message
...
why am i getting the error "object required" when i try to use this code?



Private Sub CommandButton1_Click()
Dim numberoption As Range

Sheets("Sheet3").Select
SweetenerOptions.Hide

Set numberoption = Application.InputBox("How many senarios would
you
like to consider:", "Options")
numberoption.Value = number

If number = 1 Then
PriceChoices.Label1.Enabled = True
End If

If number = 2 Then
PriceChoices.Label1.Enabled = True
PriceChoices.Label2.Enabled = True
End If