#1bETI7cJ (Office)

Sub test()

    For i = 1 To ThisWorkbook.Sheets.Count
        With ThisWorkbook.Sheets(i).UsedRange
            .NumberFormat = "General"
            .Value = .Value
        End With
    Next i

End Sub