Macro not working

[abombesposito]

So I entered a macro that should work but doesn't. Didn't get back any errors on the formula. Pretty straightforward:


File

Alpha Beta Requirment Macro.xlsm

Sheet1 Requirement Form Account Manager ,JIRA WE Firm Contact & IBD Number,PROJECT TITLE: agreement singed,Product Manager Targeted Publishing Date,Project Manager Alpha Development Type,REQUIREMENT,Status,Additional Options,Notes,ID,Development Type,REQUIREMENT,Complete,Additional Options,Note...

docs.google.com

Code
Private Sub Workheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range, ("B6"), Range(Target, Address)) Is Nothing Then
Select Case Taregt.Value
Case Is = "Beta": Rows("13:21").EntireRow.Hideen = True
End Select
End If
End Sub


But when I go to the cell to select a different text string in drop down marco does not function. Maybe a newbie miss from me but not sure.

 

[Fluff]

Not surprised it doesn't work with all those typos.
Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B6"), Target) Is Nothing Then
    Select Case Target.Value
    Case Is = "Beta": Rows("13:21").EntireRow.Hidden = True
    Case Else: Rows("13:21").EntireRow.Hidden = False
    End Select
End If
End Sub

 

[abombesposito]

Not surprised it doesn't work with all those typos.
Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B6"), Target) Is Nothing Then
    Select Case Target.Value
    Case Is = "Beta": Rows("13:21").EntireRow.Hidden = True
    Case Else: Rows("13:21").EntireRow.Hidden = False
    End Select
End If
End Sub

TY!

 

[Fluff]

You're welcome.

 

[kvsrinivasamurthy]

This is sufficient

Private Sub Workheet_Change(ByVal Target As Range)
If Not Intersect(Range("B6"), Target) Is Nothing Then
If Taregt.Value = "Beta" Then Rows("13:21").EntireRow.Hideen = True
End If
End Sub

 

[Fluff]

That code won't work.