Inputbox macro without CommandButton

Hello,

I want to make a macro that pops up an "inputbox" and where i can fill in a number or word in Cel A1.

With the code below i need a "CommandButton"
Is it possible to create one withot that button.
I want to use it in another macro.


Private Sub CommandButton1_Click()

Dim myValue As Variant
myValue = InputBox("Give me some input")
Range("A1").Value = myValue

End Sub