Morning, hopefully someone can help..I am a complete novice on VBA but have the below to insert rows based on a No in cell Q1...however the No in Q1 is generated with a formula and the insert rows doesnt work..If I manually add a No to Q1 it works fine...............help please
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "Q1" Then
Select Case Target.Value
Case "0": Rows("9:23").Hidden = True: Rows("9:9").Hidden = True
Case "1": Rows("9:9").Hidden = True: Rows("9:9").Hidden = False
Case "2": Rows("9:10").Hidden = False: Rows("11:11").Hidden = True
Case "3": Rows("9:11").Hidden = False: Rows("12:12").Hidden = True
Case "4": Rows("9:12").Hidden = False: Rows("13:13").Hidden = True
Case "5": Rows("9:13").Hidden = False: Rows("14:14").Hidden = True
Case "6": Rows("9:14").Hidden = False: Rows("15:15").Hidden = True
Case "7": Rows("9:15").Hidden = False: Rows("16:16").Hidden = True
Case "8": Rows("9:16").Hidden = False: Rows("17:17").Hidden = True
Case "9": Rows("9:17").Hidden = False: Rows("18:18").Hidden = True
Case "10": Rows("9:18").Hidden = False: Rows("19:19").Hidden = True
End Select
End If
End Sub
Display More
Thanks in advance
Steve