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
--
Kevin Smith :o)


"NoodNutt" wrote:

Mike / Gord

Just had another thought regarding capitalising.

And yep! It would be just as easy to use the <Caps Lock, but most of the
"Gate-house" staff are all-but illiterate (as they are mostly imports and
have limited english, let alone computer skills), and they (the Company) are
losing information integrity, so here I am, trying to maintain that
continuity.

That Said! can I set the entire range as <Caps using the Workbook On_Open
event.

something like:

Private Sub Workbook_Open()

Dim MyWB As Workbook
Dim MyWS As Worksheet
Dim MySR As Range

Application.ScreenUpdating = False

Set MyWB = ActiveWorkbook
Set MyWS = GateLog

MySR = "A1:K10000"
MyWS = UCase(MySR)

Application.ScreenUpdating = True

End Sub

This resulted in the following error:

Runtime Error '424'
Object Required

Appreciate any guidance.

TIA
Mark.