vba - default values in input box?

[MikeL]

Hi,

My basic question is: How do you get a default value to appear in an Input Box?

For example in the code below. The active sheet is renamed "orig", then it is copied, then that sheet needs to be renamed. I would like an input box to pop up with the default word "format" in it and with the ability for the user to overwrite this word.

Any suggestions? (Code is below)
Thanks in advance,
MikeL

Sub Imports_RenameCopyRename()
Dim Default, UserShName
ActiveSheet.Name = "orig"
Sheets("orig").Copy after:=Sheets(1)
Default = "format"
UserShName = InputBox("Please name the new sheet", Default)
Sheets("orig (2)").Name = UserShName
End Sub

 

[onlyadrafter]

Hello,

All you need is to add a second default in the UserShName.

Sub Imports_RenameCopyRename()
Dim Default, UserShName
ActiveSheet.Name = "orig"
Sheets("orig").Copy after:=Sheets(1)
Default = "format"
UserShName = InputBox("Please name the new sheet", Default, Default)
Sheets("orig (2)").Name = UserShName
End Sub

Hope this helps.

 

[MikeL]

That works. Thank you.

MikeL

 

[Pinaki Chatterjee]

Hi , I need one help in input box procedure. I enter path in the input box and want the application to remember last path entered by default next time, User has a option to change the same. If it changes, then in next procedure the last changed path will be shown. How to activate, this feature in VBA.
Thanks & Regards, Pinaki Chatterjee