Do you mean when the workbook first opens? Place something like this
in the ThisWorkbook module.
Private Sub Workbook_Open()
Dim r As Range
For Each r In Sheets("Data").Range("B9:B500")
If Not r.HasFormula And Not IsNumeric(r) Then _
r.Value = UCase(r.Value)
Next r
End Sub
Kelson wrote:
Hi all

How can I change the range between B9 to B500 in capital letters.
I would like to do it in a "on load" event, not using "=UPPER" because I
dont wanna use adjacent column.

Any help?

Cheers
Kelson