Hi Bob

This macro will change all text cells in the selection to uppercase
you can change it to a column if you want (you don't have to select the range then)

Sub Uppercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = UCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Bob" wrote in message ...
Hello,

I have to upload an Excel file everyday to a database. Is there any way I
can change the text in one column on the Excel file to UPPERCASE before I
upload the file to the DB?

Thanks a lot
--
Bob