También puedes probar otra cosa, si la solución anterior no te funciona... Te sitúas en cualquier celda del rango, y ejecutas este macro:
Código:
Sub Minusculas()
'Nos desplazamos a la primera celda del rango
Selection.End(xlUp).Select
'Recorremos todo el rango de celdas hacia abajo,
'y las ponemos en minúsculas
Do While Not IsEmpty(ActiveCell)
If Left(ActiveCell.Formula, 1) <> "=" Then
ActiveCell = LCase(ActiveCell)
End If
'pasamos a la siguiente fila
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Salu2