Changing the name of Inputbox

[rholdren]

When I create an Inputbox in the top left hand corner of the box is displayed Microsoft Excel. Is there any way to change that, remove it, hide it? Can't seem to locate anything about this.

Thanks

 

[mumps]

As you are writing the code for "Inputbox", first you enter the message in quotes. If you then enter a comma, you can then type a title for the box in quotes which will replace the default " Microsoft Excel". You will see the variables that you can enter underneath the line of code as you type.

 

[rholdren]

I get an error with the , highlighted red
This is the line prior
Choice_Answer = InputBox("Choose Worksheet 1=TOC 2=All 3=ActiveOnly 4=InactiveOnly 5=Original_2018 6=ChartedByMonth 7=2018Vendors 8=IndividualView 9=TradeVendorActivity ")

 

[Fluff]

To include the title, it should be

Choice_Answer = InputBox("Choose Worksheet 1=TOC 2=All 3=ActiveOnly 4=InactiveOnly 5=Original_2018 6=ChartedByMonth 7=2018Vendors 8=IndividualView 9=TradeVendorActivity", "[COLOR=#ff0000]My Title[/COLOR]")

Change the part in red to suit

 

[rholdren]

Excellent. Thanks.

 

[Fluff]

You're welcome & thanks for the feedback.

If you're interested, you can make the box a bit neater/easier to read like

Choice_Answer = InputBox("Choose Worksheet" & vbLf & "1=TOC" & vbLf & "2=All 3=ActiveOnly 4=InactiveOnly 5=Original_2018 6=ChartedByMonth 7=2018Vendors 8=IndividualView 9=TradeVendorActivity", "My Title")

 

[rholdren]

The code is definitely cleaner but it lists them
1=TOC
2=All 3=ActiveOnly 4=InactiveOnly 5=Original_2018
6=ChartedByMonth 7=2018Vendors 8=IndividualView
9=TradeVendorActivity
The other way lists them
1=TOC
2=All
3=ActiveOnly
4=InactiveOnly
5=Original_2018
6=ChartedByMonth
7=2018Vendors
8=IndividualView
9=TradeVendorActivity
Which was a request from a higher-up
That was the only way I knew how to make that happen

 

[Fluff]

Ok, the only reason I mentioned it, is that I see

Choose Worksheet 1=TOC 2=All 3=ActiveOnly
4=InactiveOnly 5=Original_2018
6=ChartedByMonth 7=2018Vendors
8=IndividualView 9=TradeVendorActivity

rather than split line by line

 

[rholdren]

Personally I like your way better but we have some people who they feel makes it easier to see the long way. Takes a while to get it to look like that. Thanks again. Oh and for a reward they just asked me to figure out a way to link a cell to a date on their Outlook calendar. So if a vendor pops up as being 30-60-90 days out from renewal in a particular cell they want it to put that date into their calendar. the date gets chosen once they pick a vendor from a combobox and the cell below it calculates the date. If the date is 30 60 or 90 days out (exactly) it should add a notice to their calendar in that day. Yikes. I don't know if it's possible but I'll have fun trying. Thanks again for all your help.

 

[Fluff]

You're welcome & thanks for the feedback.