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