I have this formula for forcing capitals to be entered into column C:-

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Target.Column = 3 Then
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 If
End Sub

Could anybody help me configure it so I can do this for Column D and E
as well? (I.E. Column's 4 and 5)


---
Message posted from http://www.ExcelForum.com/