Hi,
I have been working on this VBA macro to hide certain rows dependent on whether the drop down list is set to 5 or 6 years (its a loan calculator). Can someone tell me what is wrong? I have put it in the sheet VBA as worksheet_change.
If Intersect(Target, Range("I6")) Is Nothing Then Exit Sub
If LCase(Range("I6").Value) = "5" Then
Range("A63:A74").EntireRow.Hidden = True
Range("A75:A75").EntireRow.Hidden = False
Range("A76:A76").EntireRow.Hidden = True
ActiveSheet.Outline.ShowLevels RowLevels:=1
ElseIf LCase(Range("I6").Value) = "6" Then
Range("A63:A74").EntireRow.Hidden = False
Range("A75:A75").EntireRow.Hidden = True
Range("A76:A76").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
Else
Range("A63:A76").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
Thanks
I have been working on this VBA macro to hide certain rows dependent on whether the drop down list is set to 5 or 6 years (its a loan calculator). Can someone tell me what is wrong? I have put it in the sheet VBA as worksheet_change.
If Intersect(Target, Range("I6")) Is Nothing Then Exit Sub
If LCase(Range("I6").Value) = "5" Then
Range("A63:A74").EntireRow.Hidden = True
Range("A75:A75").EntireRow.Hidden = False
Range("A76:A76").EntireRow.Hidden = True
ActiveSheet.Outline.ShowLevels RowLevels:=1
ElseIf LCase(Range("I6").Value) = "6" Then
Range("A63:A74").EntireRow.Hidden = False
Range("A75:A75").EntireRow.Hidden = True
Range("A76:A76").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
Else
Range("A63:A76").EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
Thanks