Hi to all :-)

Excel it's my "Amigo"

This is to make MayMin.bas file, just create file with next code inside an them import to PERSONAL.XLSM or to any VBA PROJECT.

Attribute VB_Name = "MayMin"
Rem Ahnied García Valdés
Rem Ctrl+Shift+U for Upper-case and Ctrl+Shift+N for Lower-case letter
Sub Uppercase()
Attribute Uppercase.VB_ProcData.VB_Invoke_Func = "U\n14"
Dim SelectArea As Object
Set SelectArea = Selection
For i = 1 To SelectArea.Areas.Count
For j = 1 To SelectArea.Areas(i).Cells.Count
SelectArea.Areas(i).Cells(j) = UCase(SelectArea.Areas(i).Cells(j))
Next j
Next i

End Sub
Sub Lowercase()
Attribute Lowercase.VB_ProcData.VB_Invoke_Func = "N\n14"
Dim SelectArea As Object
Set SelectArea = Selection
For i = 1 To SelectArea.Areas.Count
For j = 1 To SelectArea.Areas(i).Cells.Count
SelectArea.Areas(i).Cells(j) = LCase(SelectArea.Areas(i).Cells(j))
Next j
Next i
End Sub

Helow

I’m apologize, I just wanted to post something to help.
The code is for change, any text in any excel sheet, from UPER-CASE to lower-case and back from lower-case to UPER-CASE, using the key combination CTRL+SHIFT+U (UPER-CASE) and CTRL+SHIFT+N (LOWER-CASE).

Thank you