Tom, Thanks for your reply. In the comment, C14 is
actually cell N3. Could this code possibly have another
bug? Since I have only two users, out of many, with this
error problem, I'm thinking there must be a local problem
or setting to be addressed. Your view?

Phil

-----Original Message-----
For Cell C14, you have the row and column reversed in the
IF statement, so
that may give the appearance of not working.

When I copied you code, all your line continuation
characters (underscores)
were butt up against the Then statement. They must be
preceded by a space

If condition Then _

Perhaps this is the source of your problem. When I put
in the space, the
code worked fine for me.

--
Regards,
Tom Ogilvy


"Phil Hageman" wrote in message
...
Upon opening this workbook, some, not all, network users
are receiving:
Run-time error '438'
Object doesn't support this property or method.

They dismiss the message (by clicking on "End" and
continue normally. The "Debug" option is not available.

The only thing I have found that does not work for
these "error" users is the below code, among many other
macros and Subs that do work.

Can someone give me an idea of what the problem is and
how
to correct it?

Private Sub Worksheet_Change(ByVal Target As Range)
'Forces upper case in cells on the BSC page

On Error GoTo Error_Handler

With Target
If Not .HasFormula Then
Application.EnableEvents = False

If Target.Column = 14 And Target.Row = 3 Then_
Target.Value = UCase(Target.Value)
'Ucase for title block, BSC page, cell C14

If Target.Column = 16 And Target.Row = 12 Then_
Target.Value = UCase(Target.Value)
'Ucase for Customer Perspective title block, BSC
page,
cell P12

If Target.Column = 16 And Target.Row = 30 Then_
Target.Value = UCase(Target.Value)
'Ucase for Financial Perspective title block, BSC
page,
cell P30

If Target.Column = 42 And Target.Row = 12 Then_
Target.Value = UCase(Target.Value)
'Ucase for Learning and Growth Perspective title
block,
BSC page, cell AP12

If Target.Column = 42 And Target.Row = 30 Then_
Target.Value = UCase(Target.Value)
'Ucase for Internal Business Process Perspective
title
block, BSC page, cell AP30

Application.EnableEvents = True
End If
End With

Error_Handler:
Resume Next

End Sub




.