Help required in replacing InputBox with Select any one option

[anish.ms]

Hi,
Thanks for all the help extended till now to me as a beginner to VBA.
Request help in the codes to park in my personal.xlsb to use as and when required

(1) Replace the input box to a kind of selection from the list
(2) Error in the code while converting large texts


MyInput = InputBox("This is my InputBox", "MyInputTitle", "UPPER/lower/Proper/Sentense")
Select Case MyInput

Case "UPPER"
For Each Rng In Selection
If Application.WorksheetFunction.IsText(Rng) Then
Rng.Value = UCase(Rng)
End If
Next

[Paul_Hossler]

I think the easiest and safest and fastest way is to use a User Form

27512

[anish.ms]

Thanks a lot Paul