ms = UCase(InputBox("Enter Name"))
--
Gary's Student


"AOU" wrote:

What code would I use, so that when an entry in a InputBox is made (using
upper or lower case or a mix) it auto changes it to upper case.
I have the following code at the moment:

Sub CommandButton2_Click()
ms=InputBox("Enter Name")
On Error Go To makeit
If ms="" Then Exit Sub
Sheets(ms).Select
Exit Sub
makeit:
Sheets("Sheet1").Copy after:=Sheet2
ActiveSheet.Name=ms
End Sub

Thank you
--
AOU