Transformando em MAIÚSCULAS no Excel

Utilize o seguinte código vba.

sub LetrasGrandes()
dim xcell
for each xcell in selection
xcell.value = ucase(xcell.value)
next xcell
end sub

O código acima irá deixar em letras maiúsculas todas as células que estiverem selecionadas.