Extraccion de Caracteres

hola, Johann !

... varias celdas que contienen palabras en "MAYUSCULAS" y... "minusculas"
... macro o formula... elimine las... minusculas, quedando solo las... MAYUSCULAS.
... en cada celda... existen alrededor de 10 palabras... 4... Mayusculas y el resto minusculas.

[creo que para este caso 'en particular'] es preferible definir una funcion personalizada :-(
[igual y se puede lograr con funciones de hoja de calculo, aunque 'el largo' de la formula... ?]
prueba/usa la siguiente funcion como a las 'normales' de excel
devolvera [solo] las mayusculas si utilizas [p.e.] =SoloMayMin(A1)
o minusculas con el argumento -opcional- [p.e.] =SoloMayMin(A1,1) o.. [p.e.] =SoloMayMin(A1,Verdadero)
el primer 'Case 32, 44 To 47' es por si quieres 'permitir' que se agreguen 'separadores' [como espacio, coma, etc.]

si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Function SoloMayMin(Celda As Range, Optional EnMin As Boolean = False) As String
Dim Pos As Integer, Mayusculas As String, Minusculas As String
Mayusculas = ""
Minusculas = ""
For Pos = 1 To Len(Celda)
Select Case Asc(Mid(Celda, Pos, 1))
Case 32, 44 To 47
Mayusculas = Mayusculas & Mid(Celda, Pos, 1)
Minusculas = Minusculas & Mid(Celda, Pos, 1)
Case 65 To 90: Mayusculas = Mayusculas & Mid(Celda, Pos, 1)
Case 97 To 122: Minusculas = Minusculas & Mid(Celda, Pos, 1)
End Select
Next
SoloMayMin = Application.Trim(IIf(EnMin, Minusculas, Mayusculas))
End Function