Hiding/unhiding rows problems

[keelybin]

Hi folks,

I've had this code working but for some reason it keeps stopping working with a 1004 error (unable to set the hidden property of the range class) and I cant figure out why - do you have any idea?

There is other code in there but essentially I'm trying to hide/unhide rows, in this example row 24, initially and if any drop down option is selected (cell c23) then it reappears.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Row_int As Integer
Dim Check_Rng As Range
Dim N_int As Integer
Dim Hide_row_int As Integer


Application.ScreenUpdating = False

[B]If Target.Address = "$C$23" Then[/B][B]    Rows("24").Hidden = True[/B]
[B]    If Target.Value <> "" Then[/B]
[B]        Rows("24").Hidden = False[/B]
[B]    End If[/B]
[B]End If

[/B]Application.ScreenUpdating = True
end sub

The worksheet is password protected btw

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Row_int As Integer
Dim Check_Rng As Range
Dim N_int As Integer
Dim Hide_row_int As Integer


Application.ScreenUpdating = False
Me.Unprotect
If Target.Address = "$C$23" Then Rows("24").Hidden = True
    If Target.Value <> "" Then
        Rows("24").Hidden = False
    End If
End If
Me.Protect
Application.ScreenUpdating = True
End Sub

 

[keelybin]

Hmm nope its giving me an error now "Compile error: End if without block if".

I cant understand how it sometimes works and sometimes doesnt. Generally the sheet is protected (but not written into the macro) as I need some cells locked, but we're addressing the unlocked cells here with the code

 

[VoG]

There was an extra End If in the code that you posted. Try

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Row_int As Integer
Dim Check_Rng As Range
Dim N_int As Integer
Dim Hide_row_int As Integer


Application.ScreenUpdating = False
Me.Unprotect
If Target.Address = "$C$23" Then Rows("24").Hidden = True
If Target.Value <> "" Then
    Rows("24").Hidden = False
End If
Me.Protect
Application.ScreenUpdating = True
End Sub

 

[keelybin]

Thank you. Your code works when I try my sheet in a brand new document so I can only assume there must be additional code in my original workbook stopping this from working. Back to the drawing board! lol