Kevin

That would take quite a while to run every time the workbook was opened.

And it would not auto-change case in newly entered cells.


Gord Dibben MS Excel MVP


On Thu, 24 Sep 2009 00:58:01 -0700, Kevin Smith
wrote:

Hello,
you could also use

Private Sub Workbook_Open()

Dim C as range

Application.ScreenUpdating = False
Range("A1:K10000").select
For Each C In Selection
C.Value = Ucase(C.Value)
Next
Application.ScreenUpdating = True
End Sub