Sub maxibel()
Dim rng As Range, cl As Range
    On Error Resume Next
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then
        Application.FindFormat.Clear
        rng.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, MatchByte:=False
        For Each cl In rng
            cl.Value = UCase(cl.Value)
        Next cl
    End If
End Sub

Sub bb()
With ActiveSheet.UsedRange
  .Value = Evaluate("INDEX(UPPER(SUBSTITUTE(" & .Address & ","","",""."")),)")
End With
End Sub