Hola, respondiendo al ejercicio:

Como hacer un macro que permita elegir entre Mayúsculas y Minúsculas. Tengo la siguiente propuesta:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range
Dim Texto As String
Dim Opción As Byte

Texto = "Elige una opción:" & vbNewLine & _
    vbNewLine & "1. MAYÚSCULAS" & _
    vbNewLine & "2. minúsculas"
    
Opción = InputBox(Texto, 1)

Select Case Opción
    Case 1
         For Each Celda In Selection
               Celda.Value = VBA.UCase(Celda)
        Next Celda
    Case 2
          For Each Celda In Selection
                Celda.Value = VBA.LCase(Celda)
        Next Celda
    Case Else: MsgBox "Elegiste un valor no asignado": Exit Sub
      
End Select