anish.ms
11-30-2020, 12:55 AM
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
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