Buenos Dias

En aras de repasar lo aprendido considere el caso de cuando existan varias celdas con textos en una misma columna seleccionadas como el siguiente caso

 | TEXTO
| curso de vba
| curso de vba
| 
| curso de vba
| 
| 
| 
| 
| curso de vba

A continuacion el codigo

Dim Opción As Variant
Dim Texto As String
Dim Rango As Range
Dim i As Integer
Set Rango = Selection

Texto = "Elige una opción:" & vbNewLine & _
vbNewLine & "1. MAYÚSCULAS" & _
vbNewLine & "2. minúsculas"
 
Opción = InputBox(Texto, "Deztaca", 1)
 
Select Case Opción
       Case 1
            For i = 1 To Rango.Rows.Count
              Rango(i).Value = VBA.UCase(Rango(i).Value)
            Next
       Case 2
            For i = 1 To Rango.Rows.Count
              Rango(i).Value = VBA.LCase(Rango(i).Value)
            Next
       Case Else
            MsgBox "Debes elegir una opción válida", vbExclamation
End Select