Posts by rsanford

rsanford · Jan 23rd 2017

Re: [Code] Subsrcipt out of range - Wanting to hide worksheets based on cell value

Yes they are all spelled correctly

rsanford · Jan 20th 2017

Here's the code I currently have that is causing the error:

Code

Private Sub Worksheet_Change(ByVal Target As Range)


Select Case Worksheets("INFOINPUT").Range("Prop")
    Case "SFR"
        Worksheets("Comparable Properties").Visible = True
        Worksheets("Data Input").Visible = True
        Worksheets("Memo Insert").Visible = True
        Worksheets("Shock Analysis").Visible = True
        Worksheets("Feasibility Study Summary").Visible = False
        Worksheets("Downtown Dallas Hotels").Visible = False
        Worksheets("Comparable Hotels").Visible = False
        Worksheets("Hotel Memo Insert").Visible = False
        Worksheets("Hotel Data Input").Visible = False
        Worksheets("Hotel Shock Analysis").Visible = False
        Worksheets("Comparable Properties (2)").Visible = False
        Worksheets("CF Memo Insert").Visible = False
        Worksheets("Data Input (3)").Visible = False
        Worksheets("Rent Roll").Visible = False
        Worksheets("Comparable Properties (3)").Visible = False
        Worksheets("Unit Mix").Visible = False
        Worksheets("Historical Rental & Occupancy").Visible = False
        Worksheets("Data Input (2)").Visible = False
        Worksheets("Memo Insert (2)").Visible = False
        Worksheets("Shock Analysis (2)").Visible = False
    Case "Apartment"
        Worksheets("Comparable Properties").Visible = False
        Worksheets("Data Input").Visible = False
        Worksheets("Memo Insert").Visible = False
        Worksheets("Shock Analysis").Visible = False
        Worksheets("Feasibility Study Summary").Visible = False
        Worksheets("Downtown Dallas Hotels").Visible = False
        Worksheets("Comparable Hotels").Visible = False
        Worksheets("Hotel Memo Insert").Visible = False
        Worksheets("Hotel Data Input").Visible = False
        Worksheets("Hotel Shock Analysis").Visible = False
        Worksheets("Comparable Properties (2)").Visible = False
        Worksheets("CF Memo Insert").Visible = False
        Worksheets("Data Input (3)").Visible = False
        Worksheets("Rent Roll").Visible = False
        Worksheets("Comparable Properties (3)").Visible = True
        Worksheets("Unit Mix").Visible = True
        Worksheets("Historical Rental & Occupancy").Visible = True
    End Select
End Sub

Display More

I have a list on the INFOINPUT page that I want the selection to hide/unhide approximately 15 different worksheets. How can I make this work?