Getting code to run!

[Colleen45]

I have a problem getting this code to work

When ever one of the two names are selected the macro is supposed to run

code
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Address(False, False) = "H6" Then
Select Case Target.Value
Case "Camps Bay", "Tokai": Call unhide_rows
End Select
End If
End Sub
/code

 

[Colleen45]

Indeed, and still nothing happened

 

[Andrew Poulsom]

What is causing H6 to change?

 

[Colleen45]

The user has to select a name from a drop down list, and if one of those names are indicated in the maco (for the sake of simplicity only 2 names are indicated), then the macro should run automatically

 

[Andrew Poulsom]

Is it a Data Validation dropdown? If so the event should fire.

 

[Colleen45]

Yes it is from a data validation drop down.
with post 6 i suggested using a simpler way, if there is one, as this is proving somewhat of a nightmare

 

[Andrew Poulsom]

If the event isn't firing there is no point in making any amendments. Does it fire when Z6 changes? Post the code you have now.

 

[Colleen45]

This is all the code for this workbook that is currently there

Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
With ActiveSheet
.PageSetup.PrintArea = "A1:BN" & .Range("T" & .Rows.Count).End(xlUp).Row
.PrintOut
.PageSetup.PrintArea = ""
End With
Cancel = True
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "Z6" Then
If Target.Value <> Target.Offset(-1).Value Or Target.Offset(-1).Value = "" Then
Application.EnableEvents = False
Target.ClearContents
Application.Goto reference:=Range("H6"), Scroll:=True
MsgBox "Please choose a value then enter the same in Z6", vbExclamation
Application.EnableEvents = True
End If
If Target.Address(False, False) = "H6" Then
Application.EnableEvents = True
Select Case Target.Value
Case "Camps Bay", "Tokai": Call unhide_rows
End Select
End If
End Sub
/code

 

[Andrew Poulsom]

The Worksheet_Change code goes in the module for the worksheet - is that where you have it?

 

[Colleen45]

All of this code resides in "This Workbook" Module"
The Actual macro to "run" is in Modules,module1

 

[Andrew Poulsom]

The Worksheet_Change procedure belongs in the module for the worksheet, not in the ThisWorkbook module. That's why it isn't firing.