Submit InputBox value a Cell

[Wilfred_E]

I have the following code but needs it to submit input value into an excel cell.

Sub UserForm_Activate()
Dim myInputBoxVariable As Variant
myInputBoxVariable = Application.inputBox(Prompt:="Enter Product", Title:="Stock-Position Request")
MsgBox "Your input was: " & myInputBoxVariable
End Sub

Thank you.

 

[Fluff]

Which cell?

 

[Wilfred_E]

Which cell?

Any cell, say for example, "Sheet1, A21"

 

[Fluff]

How about

Sub UserForm_Activate()
Dim myInputBoxVariable As Variant
myInputBoxVariable = Application.InputBox(Prompt:="Enter Product", Title:="Stock-Position Request")
Sheets("Sheet1").Range("A21").Value = myInputBoxVariable
End Sub

 

[Wilfred_E]

QUOTE="Fluff, post: 5541836, member: 289073"]
How about

Sub UserForm_Activate()
Dim myInputBoxVariable As Variant
myInputBoxVariable = Application.InputBox(Prompt:="Enter Product", Title:="Stock-Position Request")
Sheets("Sheet1").Range("A21").Value = myInputBoxVariable
End Sub

[/QUOTE]
Works perfectly, Fluff! Thank you for the timely answer.

 

[Fluff]

You're welcome & thanks for the feedback.