Worksheet change

[Valentin]

I have two worksheet change events, how can I code them on one sheet
Code1

Private Sub worksheet_change(ByVal target As Range)
If Intersect(target, Range("D4:D67")) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ErrorRoutine
target = target + CellCopy
ErrorRoutine:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(target, Range("D4:D67")) Is Nothing Then Exit Sub
CellCopy = target
End Sub

Code2

Sub worksheet_change(ByVal target As Range)
Set target = Range("E4")
If target.Value = True Then
Call EMJokerPlusUnHide
End If
If target.Value = False Then
Call EMJokerPlusHide
End If
End Sub

 

[sykes]

Incorporate them into the Workbook_sheetchange event, instead.

Then do a test for sheet.name, before running each bit of code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then
    
        blah blah
    
    End If

End Sub

 

[Valentin]

Sorry, Workbook_SheetChange is not working

 

[Fluff]

How is E4 being changed?

 

[Valentin]

With validation list

 

[Fluff]

Ok, how about

Private Sub worksheet_change(ByVal Target As Range)
   If Not Intersect(Target, Range("D4:D67")) Is Nothing Then
      Application.EnableEvents = False
      On Error GoTo ErrorRoutine
      Target = Target + CellCopy
   ElseIf Target.Address(0, 0) = "E4" Then
      If Target.Value Then
         Call EMJokerPlusUnHide
      Else
         Call EMJokerPlusHide
      End If
   End If
ErrorRoutine:
   Application.EnableEvents = True
End Sub

 

[Valentin]

Sorry not working, Error 13 Type mismatch

 

[Fluff]

On what line?

 

[Valentin]

Sorry, Problem solved , I typed incorrectly
Thanks for the solution;

 

[Fluff]

You're welcome & thanks for the feedback.