Te dejo este procedimiento para que ejecutes, cuenta cuantas celdas en mayúscula hay en una columna, solo debes seleccionar la primera celda de la columna que deseas realizar el conteo y te devuelve el valor.
Las minusculas las puedes obtener por diferencia o agregandole programación al siguiente procedimiento.
**************************************************************************************
Public Sub Cuenta()
Dim mItexto As String, ContMay As Integer, Celda As String
mItexto = ActiveCell.Text
Celda = ActiveCell.Address
Do
mItexto = ActiveCell.Text
If mItexto = UCase(ActiveCell.Text) Then
ContMay = ContMay + 1
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = Empty
Range(Celda).Select
MsgBox "Hay " & ContMay & " celdas que contienen texto en mayúscula.", vbInformation, "CONTADOR"
End Sub
**************************************************************************************
Saludos,
Fernando