UPPER FUNCTION

 Hi All,

Hi All,

I have Excel 2000 running on my system.

I have a worksheet with alpanumeric columns, date columns, number columns, letter column and a column with both date and letters.

Now I want to convert the whole worksheet to Uppercase characters. Each time I do a conversion using the UPPER function, it changes the dates to something else especially in the column with both dates and letters.

Please can someone give me a walk around the issue or a little macro that will do the conversion while leaving the numbers and dates as is.

Thank you

Olusoga

 Try something like

Sub UPPERCASE()

    Dim Cell As Range
   
    For Each Cell In ActiveSheet.UsedRange
   
    If IsNumeric(Cell.Value) Or IsDate(Cell.Value) Then
    Else
       Cell.Value = UCase(Cell.Value)
    End If
   
    Next Cell

End Sub

 This Sub Routine worked just fine, Thanks a million