VBA - SelectionChange not working

[surkdidat]

Hi

I have the following code on Sheet3 of my workbook. Unfortunately, when C16 is either left blank, or "standard" is inserted, nothing happens - i.e. it does not hide rows or columns.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.EnableEvents = True
    
    
       ActiveSheet.Unprotect
    If Range("C16").Value = "" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True
        
          ActiveSheet.Unprotect
    If Range("C16").Value = "Standard" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True

End Sub

 

[Captain_Conman]

Have you tried changing the range to .Text instead of .Value?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    Application.EnableEvents = True
    
    
       ActiveSheet.Unprotect
    If Range("C16").Text = "" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True
        
          ActiveSheet.Unprotect
    If Range("C16").Text = "Standard" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True


End Sub

 

[surkdidat]

Unfortunately, no that hasn't helped. Also realise the above does not include End If statements, I have added these, and still doesn't work :9

Have you tried changing the range to .Text instead of .Value?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    Application.EnableEvents = True
    
    
       ActiveSheet.Unprotect
    If Range("C16").Text = "" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True
        
          ActiveSheet.Unprotect
    If Range("C16").Text = "Standard" Then
        Columns("O:P").EntireColumn.Hidden = True
     Rows("18").EntireRow.Hidden = False
        Rows("19:20").EntireRow.Hidden = True


End Sub

 

[Fluff]

Try running this & then try changing cells

Sub Chk()
Application.EnableEvents = True
End Sub

 

[surkdidat]

Where does this go please? On my Sheet3 or ThisWorkbook?

Also, does my cde need to go onto Sheet3 or ThisWorkbook?

Try running this & then try changing cells

Sub Chk()
Application.EnableEvents = True
End Sub

 

[Fluff]

Your code needs to go in the sheet module for the sheet you want it to work on.
My code can go anywhere

 

[surkdidat]

Hi

I have tried this, and run your macro, then saved workbook, but (my) above code, on sheet I want to hide rows/columns on still does not work. I have tried code in a blank workbook and it works - so unsure as to why?

Your code needs to go in the sheet module for the sheet you want it to work on.
My code can go anywhere

 

[surkdidat]

Ignore please - just realised when I put this into a new workbook, it is all on different sheet numbers, so I was putting it in sheet3 which used to be my main screen, and is now sheet 1 so works perfectly. Apologies!!

Hi

I have tried this, and run your macro, then saved workbook, but (my) above code, on sheet I want to hide rows/columns on still does not work. I have tried code in a blank workbook and it works - so unsure as to why?

 

[Fluff]

Glad it's sorted & thanks for the feedback