You can modify this. Regards, Marc
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target is an argument which refers to the range being changed
If Target.Column = 3 Then
'this check is to prevent the procedure from repeatedly calling itself
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub