Hide Tabs based on Value of cell range

Shipwreck818 

Change the Worksheet_Change event procedure of the FC4007.5 sheet to

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim wsh As Worksheet
    If Not Intersect(Range("B2:B3"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Columns("D:Q").EntireColumn.Hidden = True
        For Each wsh In Worksheets(Array("Pre-Version 1", _
                "Version 1 (SB 1355)", "Repeal Period 1", _
                "Version 2 (AB 610)", "Repeal Period 2", _
                "Version 3 (AB 2325)", "Current (AB 207)"))
            wsh.Visible = xlSheetHidden
        Next wsh
        For Each rng In Range("B5:B15")
            If rng.Value <> "" Then
                Worksheets(rng.Value).Visible = xlSheetVisible
            End If
            Select Case rng.Value
                Case "Pre-Version 1"
                    Columns("D:E").EntireColumn.Hidden = False
                Case "Version 1 (SB 1355)"
                    Columns("F:G").EntireColumn.Hidden = False
                Case "Repeal Period 1"
                    Columns("H:I").EntireColumn.Hidden = False
                Case "Version 2 (AB 610)"
                    Columns("J:K").EntireColumn.Hidden = False
                Case "Repeal Period 2"
                    Columns("L:M").EntireColumn.Hidden = False
                Case "Version 3 (AB 2325)"
                    Columns("N:O").EntireColumn.Hidden = False
                Case "Current (AB 207)"
                    Columns("P:Q").EntireColumn.Hidden = False
            End Select
        Next rng
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub