uppercase all data in the sheet.

Run this to "fix" all the existing data to uppercase:

Sub RunOnce()
    Dim c As Range
    For Each c In Sheet1.UsedRange.SpecialCells(xlCellTypeConstants)
        c.Value = UCase(c.Value)
    Next c
End Sub

Put this code in the worksheet module to "correct" all new entries to uppercase, as they are entered:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    For Each c In Target.Cells
        If Not c.HasFormula Then c.Value = UCase(c.Value)
    Next c
End Sub

Hi Olly,

both codes worked perfectly.
the second code for correcting all new entries works like magic :D

Thank you very much.