Excel - Cambiar a Mayusculas

Como puedo hacer para que en una celda en la que el texto esta en minusculas aparesca en mayusculas?, hay una función que hace eso pero en otra celda lo queyo quiero saber es si hay una función que haga que todas las celdas que esten en minusculas se cambien a mayuscula sin tener que hacerlo celda por celda.

Gracias

Con esta macro puede cambiar:

Sub May()

dato=ActiveCell.Value

If VarType(dato)=8 Then

ActiveCell.Value=UCase(dato)

End If

ActiveCell.Offset(1,0).Select

End Sub