Help with Private Sub Worksheet_Change(ByVal Target As Range)

[aashish83]

Need help with the below code

Case C18 - runs a macro to hide certain rows basis input Yes or No

Case F33 - Fills all blank cells in the range with Yes or No or Blank

Now when i run Case F33 all the hidden rows under Case C18 become unhidden even if the input on C18 is Yes


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.CountLarge > 1 Then Exit Sub

If Not Intersect(Target, Range("C18:C19,F33,F8,F9")) Is Nothing Then
Select Case Target.Address(0, 0)

Case "C18"
If Target.Value = "Yes" Then
Call Cenb
ElseIf Target.Value = "No" Then
Call Cenb1
End If
Case "C19"
If Target.Value = "Yes" Then
Call CyberB
ElseIf Target.Value = "No" Then
Call CyberB1
End If
Case "F33"
If Target.Value = "Yes_to_All" Then
Call Yes_to_All_B
ElseIf Target.Value = "No_to_All" Then
Call No_to_All_B
ElseIf Target.Value = "Blank_to_All" Then
Call Blank_to_All_B
End If
Case "F8"
If Target.Value = "Yes" Then
Call Report_PrintB
End If
Case "F9"
If Target.Value = "Yes" Then
Call GeneratePDFB
End If
End Select
End If

End Sub

 

[rollis13]

Your issue is to be found in one of the three macros you are 'Call'ing in Case F33, not in this 'Worksheet_Change'

 

[aashish83]

Your issue is to be found in one of the three macros you are 'Call'ing in Case F33, not in this 'Worksheet_Change'

I will have a relook at the code of the 3 macros or post them for suggestions but I was using the same macro in a workbook module but it did not interfere with it earlier but now since i have moved it to worksheet change it is unhiding the rows in case C18.