Vba formula not woring

[caet_]

Hello all!

I am trying to use this code on VBA. However, it is not working. Nothing happens when I change cell A1. Any idea why?

Private Sub Worksheet_Change2(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect Password:="123"
Application.ScreenUpdating = False
With Sheets("Sheet2")
Select Case Target.Address
Case "$A$1"
Select Case Target.Value
  Case Is = 1
        .Rows("107:323").EntireRow.Hidden = True
        .Rows("36:106").EntireRow.Hidden = False
   Case Is = 2
        .Rows("37:107").EntireRow.Hidden = True
        .Rows("108:177").EntireRow.Hidden = False
        .Rows("178:323").EntireRow.Hidden = True
   Case Is = 3
        .Rows("37:179").EntireRow.Hidden = True
        .Rows("180:250").EntireRow.Hidden = False
        .Rows("178:323").EntireRow.Hidden = False
Case Is = 4,5
        .Rows("37:252").EntireRow.Hidden = True
        .Rows("253:324").EntireRow.Hidden = False
      
    End Select
    End If
    ActiveSheet.Protect Password:="123"
    Application.ScreenUpdating = True
    End Sub

Thank you!

 

[Fluff]

You cannot change the name of the procedure, it needs to be

Private Sub Worksheet_Change(ByVal Target As Range)

 

[caet_]

You cannot change the name of the procedure, it needs to be

Private Sub Worksheet_Change(ByVal Target As Range)

I've tried without the 2 and it does not work as well

 

[Fluff]

Ok, a few questions
1) Is the code in the correct sheet module?
2) Do you get any errors?
3) How is A1 being changed?

 

[AC PORTA VIA]

need "end select" and "end with"

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123"
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
With Sheets("Sheet2")
Select Case Target.Address
Case "$A$1"
Select Case Target.Value
Case Is = 1
        .Rows("107:323").EntireRow.Hidden = True
        .Rows("36:106").EntireRow.Hidden = False
   Case Is = 2
        .Rows("37:107").EntireRow.Hidden = True
        .Rows("108:177").EntireRow.Hidden = False
        .Rows("178:323").EntireRow.Hidden = True
   Case Is = 3
        .Rows("37:179").EntireRow.Hidden = True
        .Rows("180:250").EntireRow.Hidden = False
        .Rows("178:323").EntireRow.Hidden = False
Case Is = 4, 5
        .Rows("37:252").EntireRow.Hidden = True
        .Rows("253:324").EntireRow.Hidden = False
      
    End Select
    End Select
    End With
    ActiveSheet.Protect Password:="123"
    Application.ScreenUpdating = True
    End Sub

 

[caet_]

It does not work I don't understand why.

I've uploaded the file here: https://easyupload.io/3fg9n8

 

[Fluff]

Can you please answer my questions?

 

[Fluff]

In addition to the questions in post#4 are you changing the value of A1 in sheet2 or the value of A5 in sheet1?

 

[caet_]

In addition to the questions in post#4 are you changing the value of A1 in sheet2 or the value of A5 in sheet1?

The value that will be changing will be A5 in sheet 1. Then, A1 in sheet2 will depend of A15 in sheet1. Thank you!

 

[caet_]

Ok, a few questions
1) Is the code in the correct sheet module?
2) Do you get any errors?
3) How is A1 being changed?

1) Yes, in Sheet2
2) No, no errors have appeared
3) A1 in sheet 2 will be the value chosen in the drop down list of cell A5 in sheet1.

Thank you!!