Thanks Jim.

There will be NO Formula's, ONLY Text values in the Column.

Corey....

"Jim Thomlinson" wrote in message
...
This code works fine so long as there are no formulas in column BH. If there
are it converts the formulas into values that are upper cased. That is
probably an unintended side effect (although that depends on what the OP
wants). Up to you Corey...

--
HTH...

Jim Thomlinson


"Gary''s Student" wrote:

Sub upper()
Set r = Intersect(Range("BH:BH"), ActiveSheet.UsedRange)
For Each rr In r
rr.Value = UCase(rr.Value)
Next
End Sub

--
Gary''s Student - gsnu200731


"Corey" wrote:

I have used the Ucase line of code before to format a Textbox or a single cell,
but how can i get it to work on the entirte column BH in a worksheet ?

I tried:
Range("BH:BH").value = Ucase(Range("BH:BH").value)

but i get a type missmatch error


Corey....