Excel - Solo Mayusculas

Sub Mayusculas()

Application.ScreenUpdating = False

For Each Cell In Selection

    If Left(Cell.Formula, 1) <> "=" And Not IsDate(Cell.Value) Then

        Cell.Value = WorksheetFunction.Trim(UCase(Cell.Value))

    End If

Next

Application.ScreenUpdating = True

End Sub