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]

Hi Andrew,
I think I may have cracked this beast, from what you have just said. I moved the code into "sheet1", it was previously in "This Workbook", and then it worked as expected!!

 

[Colleen45]

Well done Andrew!!!, my newest hero and problem stickability, yes this certainly was the problem, it now works perfectly and as expected.
Many many thanks for your help, I am in your gratiude.
Regards and blessings