Changing InputBox text to UpperCase

[JBShandrew]

Hi VBA Experts,

I would like help with another VBA function that I am trying to learn.

I have an InputBox in a .Range statement
.range("$B$57").value = InputBox("test", "Title", default,925,11000)

is there a way to include a command to force the input that is typed in to become Upper or Sentence Case in the cell that the input is placed into?


Thank you inadvance!

Sincerely,

J.B.

 

[Smitty]

Sure:

.range("$B$57").value = UCase(InputBox("test", "Title", default,925,11000))

HTH,

 

[JBShandrew]

Sure:

.range("$B$57").value = UCase(InputBox("test", "Title", default,925,11000))

HTH,

Thank you!

This worked very well.

 

[JBShandrew]

Sure:

.range("$B$57").value = UCase(InputBox("test", "Title", default,925,11000))

HTH,

Now I tried and got an error each time

.range("$B$57").value = Proper(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = Propercase(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = vbpropercase(InputBox("test", "Title", default,925,11000))

 

[GTO]

I believe you want StrConv()

 

[JBShandrew]

Sure:

.range("$B$57").value = UCase(InputBox("test", "Title", default,925,11000))

HTH,

This works very, very well. Now I am trying to get Proper to work the same way without success. What I have tried is below. I do not quite understand how to incorporate StrConv() in the range and inputbox statements.

Help Please?

Thanks again,

J.B.

Now I tried and got an error each time

.range("$B$57").value = Proper(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = Propercase(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = vbpropercase(InputBox("test", "Title", default,925,11000))

I believe you want StrConv()

 

[Rick Rothstein]

Now I tried and got an error each time

.range("$B$57").value = Proper(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = Propercase(InputBox("test", "Title", default,925,11000))

.range("$B$57").value = vbpropercase(InputBox("test", "Title", default,925,11000))

Try it this way...

.range("$B$57").value = StrConv(InputBox("test", "Title", default,925,11000), vbProperCase)

 

[JBShandrew]

Try it this way...

.range("$B$57").value = StrConv(InputBox("test", "Title", default,925,11000), vbProperCase)

Thank you Mr. Rothstein! This workes very well.