This would work for column A

Sub test2()

Range("A:A").Select
For Each cell In Range("A:A")
cell.Value = UCase(cell.Value)
Next cell
End Sub

You might want to modify this a little in order to keep it from checking
cells below the point where your data stops.


Sub test2()
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
cell.Value = UCase(cell.Value)
Next cell

End Sub

You can adjust the column reference as necessary. My example is using
column A.
HTH,
Paul

"john d" wrote in message
...
Is there a way to change all the entries in a column from lower case to
upper case?