InputBox Title and text

[jb3700]

does anyone know how a can change to title of an InputBox and have the text that the user puts into the InputBox appear in a cell ?

 

[Rick Rothstein]

does anyone know how a can change to title of an InputBox and have the text that the user puts into the InputBox appear in a cell ?

The first part of your question is not entirely clear... are you asking how to put your own title on an InputBox to replace the default of "Microsoft Excel" for a VBA InputBox or "Input" for an Application.InputBox? If so, there is a second argument where you can put a text string value (a variable containing a text string can be used there as well)...

InputBox "Hello", "Your title goes here"

Application.InputBox "Hello", "Your title goes here"

If you look at the Help File for either of these, you will see all of the arguments for them. A quick way to do that is to put the text cursor on the word InputBox in a line of code using it and then press the F1 key.

 

[Domenic]

Try to adopt the following code...

[color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] test()

    [color=darkblue]Dim[/color] sResp [color=darkblue]As[/color] [color=darkblue]String[/color]

    sResp = InputBox(Prompt:="Enter text...", Title:="Your Title")
    
    [color=darkblue]If[/color] Len(sResp) = 0 [color=darkblue]Then[/color]
        MsgBox "User cancelled", vbInformation
        [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    
    Range("A2").Value = sResp
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Hope this helps!

 

[Rick Rothstein]

The first part of your question is not entirely clear... are you asking how to put your own title on an InputBox to replace the default of "Microsoft Excel" for a VBA InputBox or "Input" for an Application.InputBox? If so, there is a second argument where you can put a text string value (a variable containing a text string can be used there as well)...

InputBox "Hello", "Your title goes here"

Application.InputBox "Hello", "Your title goes here"

If you look at the Help File for either of these, you will see all of the arguments for them. A quick way to do that is to put the text cursor on the word InputBox in a line of code using it and then press the F1 key.

Sorry, I forgot to answer your second question, but I see Domenic has shown you how to do it at the end of the routine he posted.

 

[jb3700]

Thank you