Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle

Anywhere in your your application have you run

Application.enableevents = false
without the corresponding
Application.enableevents = true

Being run?

Tru running this code and then see if things are back to normal

Sub Test
Application.enableevents = true
End Sub

HTH

"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle

Thanks, I used Application.EnableEvents = False one time instead of
Application.ScreenUpdating = False and I made sure I closed all False to True
loops except for the one use of enableEvents.
You posted a question the other day and I will try to help you in about two
lifetimes from now.
--
Jim at Eagle


"Jim Thomlinson" wrote:

Anywhere in your your application have you run

Application.enableevents = false
without the corresponding
Application.enableevents = true

Being run?

Tru running this code and then see if things are back to normal

Sub Test
Application.enableevents = true
End Sub

HTH

"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle

Set a breakpoint on the If statement. If the debugger stops there then the
Worksheet_Change event is firing ok. Next, break the one-line If statement
into multiple lines. (There is no problem with a one-line If statement, but
do this for the next step.) Now set a breakpoint on the LTVisible line

If Target.Address = "$D$9" Then
LTVisable
endif

If the debugger doesn't stop there then cell $D$9 must not be changing. If
it does stop there then step through the sub and find out why it isn't doing
anything.


"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle

Macros are disabled?

--
Regards,
Tom Ogilvy

"Jim at Eagle" wrote in message
...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle