One way, right click the sheet tabe and select view code and paste in the
following:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Target.Column > 6 Then Exit Sub
For Each cell In Target.Cells
With cell
If Not .HasFormula And Not IsNumeric(.Value) Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End With
Next cell
End Sub
this will uppercase everything in the first 6 columns, change to fit
The press Alt + Q to close the VBE, save workbook
Regards,
Peo Sjoblom