Why Won't This Worksheet_Change Work?!!!

[Fuddy_Duddy]

This Worksheet_Change refuses to work. When I execute it from a macro, it works fantastically. But not as a Worksheet_Change. And it's the only change for the sheet.

Please help.

Thanks in advance.

Here's the code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D10").Address Then

' Gets the Number of Lines-to-Date from the Individual "COPY_for_Recipe_" File

Dim openFilename As String
Dim LineAnswer As String

openFilename = Range("K9")

If Range("K9") <> "ENTER FILE NUMBER" And Range("D11") <> "NO SELECTION" Then

Workbooks.Open Filename:= _

"D:\DIGITAL RESOUIRCE, LLC\COOKING_CHANNEL\COPY_for_EPISODES_AQR\COPY_for_" & openFilename & ".xlsm"

Windows("COPY_for_" & openFilename & ".xlsm").Activate

Sheets("Script").Select

Sheets("Script").Unprotect

LineAnswer = Range("AZ2")

Sheets("Script").Protect

Windows("Word_Count_Utility.xlsm").Activate

Sheets("WORD_COUNT").Select

Sheets("WORD_COUNT").Unprotect

Range("O12") = LineAnswer

Sheets("WORD_COUNT").Protect

End If

End If

 

[MARK858]

Yes, it's in a worksheet that has all of its modules working correctly

A worksheet has only one module, to clarify if you right click the sheet tab and click view code is the code there

 

[Fuddy_Duddy]

A worksheet has only one module, to clarify if you right click the sheet tab and click view code is the code there

Meant macros.

 

[MARK858]

I placed a message box before and after the Open Filename and got the message each time, yet the code did not execute

If you get the message boxes then the code is executing, try putting the message box only where I placed it as I am trying to test if it is getting into the If statement

 

[Fuddy_Duddy]

Found an easy solution...just used a call of the macro that worked...and it worked. Used a few iferrors to correct the error values, and success! Thanks to those that responded.
Here is the code:

Private Sub Worksheet_Change(ByVal Target As Range)

'CALLS The Macro

If Target.Address = Range("D10").Address Then

Call Extract_Number_of_Lines_from_Scene

End If

End Sub