Hidden pages pop up out of no where!!!

**marvinabou7890** · 04-25-2016, 02:40 PM

Sub unhideforanalysis()
'

Dim cc As Worksheet: Set cc = Sheets("Read Prior to use")
Dim rng As Range, c As Range
Dim p As Range
Application.ScreenUpdating = False ' Turn-off screen updates
       
If cc.Range("J24") Like "*MSI*" Then
 Sheets("Read Prior to use").Select
    Sheets("simple ROI").Visible = True
    Sheets("simple ROI").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Inputs explained").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-Page").Visible = True
    Sheets("Analysis-Page").Select
    Sheets("Reports-Page").Visible = True
    Sheets("Reports-Page").Select
    Sheets("ROI-Page").Visible = True
    Sheets("ROI-Page").Select
    Sheets("Summary-Page").Visible = True
    Sheets("Summary-Page").Select
    Sheets("Analysis-Roll").Visible = True
    Sheets("Analysis-Roll").Select
    Sheets("Reports-Rolls").Visible = True
    Sheets("Reports-Rolls").Select
    Sheets("ROI-Roll").Visible = True
    Sheets("ROI-Roll").Select
    Sheets("Summary-Roll").Visible = True
    Sheets("Summary-Roll").Select
    Sheets("Analysis-MSI").Visible = True
    Sheets("Analysis-MSI").Select
    Sheets("Reports-MSI").Visible = True
    Sheets("Reports-MSI").Select
    Sheets("ROI-MSI").Visible = True
    Sheets("ROI-MSI").Select
    Sheets("Summary-MSI").Visible = True
    Sheets("Summary-MSI").Select
    Sheets("paper calculator").Visible = True
    Sheets("paper calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Fluids").Select
    Sheets("Consumables").Visible = True
    Sheets("Consumables").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Lookups").Visible = True
    Sheets("Lookups").Select
    Sheets("Currency Table").Visible = True
   Sheets("simple ROI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Inputs explained").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Input").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Rolls").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("paper calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Labor").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Fluids").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Consumables").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Primer Calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Lookups").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Currency Table").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("O16").Select
    Sheets("Read Prior to use").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-MSI").Visible = True
    Sheets("Analysis-MSI").Select
    Sheets("Reports-MSI").Visible = True
    Sheets("Reports-MSI").Select
    Sheets("ROI-MSI").Visible = True
    Sheets("ROI-MSI").Select
    Sheets("Summary-MSI").Visible = True
    Sheets("Summary-MSI").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("paper calculator").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Consumables").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Currency Table").Visible = True
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Input").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Input").Select
    Range("G7").Select
    End If
    
    
    If cc.Range("J24") Like "*Page*" Then
     Sheets("Read Prior to use").Select
    Sheets("simple ROI").Visible = True
    Sheets("simple ROI").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Inputs explained").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-Page").Visible = True
    Sheets("Analysis-Page").Select
    Sheets("Reports-Page").Visible = True
    Sheets("Reports-Page").Select
    Sheets("ROI-Page").Visible = True
    Sheets("ROI-Page").Select
    Sheets("Summary-Page").Visible = True
    Sheets("Summary-Page").Select
    Sheets("Analysis-Roll").Visible = True
    Sheets("Analysis-Roll").Select
    Sheets("Reports-Rolls").Visible = True
    Sheets("Reports-Rolls").Select
    Sheets("ROI-Roll").Visible = True
    Sheets("ROI-Roll").Select
    Sheets("Summary-Roll").Visible = True
    Sheets("Summary-Roll").Select
    Sheets("Analysis-MSI").Visible = True
    Sheets("Analysis-MSI").Select
    Sheets("Reports-MSI").Visible = True
    Sheets("Reports-MSI").Select
    Sheets("ROI-MSI").Visible = True
    Sheets("ROI-MSI").Select
    Sheets("Summary-MSI").Visible = True
    Sheets("Summary-MSI").Select
    Sheets("paper calculator").Visible = True
    Sheets("paper calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Fluids").Select
    Sheets("Consumables").Visible = True
    Sheets("Consumables").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Lookups").Visible = True
    Sheets("Lookups").Select
    Sheets("Currency Table").Visible = True
    Sheets("simple ROI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Inputs explained").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Input").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Rolls").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("paper calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Labor").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Fluids").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Consumables").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Primer Calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Lookups").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Currency Table").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("O16").Select
    Sheets("Read Prior to use").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Inputs explained").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-Page").Visible = True
    Sheets("Analysis-Page").Select
    Sheets("Reports-Page").Visible = True
    Sheets("Reports-Page").Select
    Sheets("ROI-Page").Visible = True
    Sheets("ROI-Page").Select
    Sheets("Summary-Page").Visible = True
    Sheets("Summary-Page").Select
    Sheets("paper calculator").Visible = True
    Sheets("paper calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Fluids").Select
    Sheets("Consumables").Visible = True
    Sheets("Consumables").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Currency Table").Visible = True
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Input").Select
    Range("G7").Select
    End If
     If cc.Range("J24") Like "*Roll*" Then
      Sheets("Read Prior to use").Select
    Sheets("simple ROI").Visible = True
    Sheets("simple ROI").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Inputs explained").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-Page").Visible = True
    Sheets("Analysis-Page").Select
    Sheets("Reports-Page").Visible = True
    Sheets("Reports-Page").Select
    Sheets("ROI-Page").Visible = True
    Sheets("ROI-Page").Select
    Sheets("Summary-Page").Visible = True
    Sheets("Summary-Page").Select
    Sheets("Analysis-Roll").Visible = True
    Sheets("Analysis-Roll").Select
    Sheets("Reports-Rolls").Visible = True
    Sheets("Reports-Rolls").Select
    Sheets("ROI-Roll").Visible = True
    Sheets("ROI-Roll").Select
    Sheets("Summary-Roll").Visible = True
    Sheets("Summary-Roll").Select
    Sheets("Analysis-MSI").Visible = True
    Sheets("Analysis-MSI").Select
    Sheets("Reports-MSI").Visible = True
    Sheets("Reports-MSI").Select
    Sheets("ROI-MSI").Visible = True
    Sheets("ROI-MSI").Select
    Sheets("Summary-MSI").Visible = True
    Sheets("Summary-MSI").Select
    Sheets("paper calculator").Visible = True
    Sheets("paper calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Fluids").Select
    Sheets("Consumables").Visible = True
    Sheets("Consumables").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Lookups").Visible = True
    Sheets("Lookups").Select
    Sheets("Currency Table").Visible = True
     Sheets("simple ROI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Inputs explained").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Input").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Page").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-Rolls").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-Roll").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Analysis-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Reports-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ROI-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summary-MSI").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("paper calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Labor").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Fluids").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Consumables").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Primer Calculator").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Lookups").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Currency Table").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("O16").Select
    Sheets("Read Prior to use").Select
    Sheets("Inputs explained").Visible = True
    Sheets("Inputs explained").Select
    Sheets("Input").Visible = True
    Sheets("Input").Select
    Sheets("Analysis-Roll").Visible = True
    Sheets("Analysis-Roll").Select
    Sheets("Reports-Rolls").Visible = True
    Sheets("Reports-Rolls").Select
    Sheets("ROI-Roll").Visible = True
    Sheets("ROI-Roll").Select
    Sheets("Summary-Roll").Visible = True
    Sheets("Summary-Roll").Select
    Sheets("paper calculator").Visible = True
    Sheets("paper calculator").Select
    Sheets("Labor").Visible = True
    Sheets("Labor").Select
    Sheets("Fluids").Visible = True
    Sheets("Fluids").Select
    Sheets("Consumables").Visible = True
    Sheets("Consumables").Select
    Sheets("Primer Calculator").Visible = True
    Sheets("Primer Calculator").Select
    Sheets("Currency Table").Visible = True
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Input").Select
    Range("G7").Select
    End If
    Application.ScreenUpdating = True ' Turn-off screen updates
     
     End Sub

Hidden pages pop up out of no where!!!

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: Hidden pages pop up out of no where!!!

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Need to Print Hidden Pages with value in a range

Limiting pages printed and Printing totals at the bottom of the pages

Hidden rows are printing as blank pages...

Hidden Pages to Appear on Hyperlink

How do I print hidden pages?

Pages hidden with manual breaks still print

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions