Hi All:
I am using the code below to convert all input on the spreadsheet to UPPERCASE. This was working fine until I added a Column that contains dates (Column D is formatted like 03/Mar/2009). So when I type in 03-03 in column D I get: 03/Mar/2009 instead of 03/MAR/2009
Can the code be tweaked to accommodate the dates?
Here is the code:
THANKS to anyone that can assist,
Take Care,
Mark
I am using the code below to convert all input on the spreadsheet to UPPERCASE. This was working fine until I added a Column that contains dates (Column D is formatted like 03/Mar/2009). So when I type in 03-03 in column D I get: 03/Mar/2009 instead of 03/MAR/2009
Can the code be tweaked to accommodate the dates?
Here is the code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Converts ALL input to UPPERCASE
Dim cel As Range
Application.EnableEvents = False
On Error Resume Next
For Each cel In Intersect(Target, Target.SpecialCells(xlCellTypeConstants, xlTextValues))
cel.Value2 = UCase(cel.Value2)
Next cel
Application.EnableEvents = True
End Sub
THANKS to anyone that can assist,
Take Care,
Mark