Hidden pages pop up out of no where!!!

Hi guys,
So I have like a 15 sheet workbook and all the pages are hidden except for 1 configuration page and based of what you input on the configuration page I have a macro that will unhide the pages you need. No user will need more than say 17 pages at 1 time. However once I run the macro the pages I want unhide themselves yet when I make any change to any cell on a sheet that effects a cell on another sheet say through a formula basically all other sheets in the whole workbook randomly appear on that page in like a huge mixed up mess of other pages its very strange. This happen on every page I change a cell on and it makes using the model basically impossible. This only occurs after I run the macro and until I exist the workbook. I Turned screen updates off in the macro but nothing changed. I will attach the code below. Any help is appreciated.
Thank you so much,
Your friend.

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

Too much of a pain to read that lot - attach a sample workbook. No data is needed, the relevent data can be simply entered manually in J24 on sheet "Read Prior to use"

Hi Thank you for replying,
I tried that before when I take the data out I no longer have the issue because formulas are not re calculating when I change a cell. Maybe I can explain the issue I am having better.
So basically I have a macro to hide or unhide pages right. Once I run this macro when ever I change any cell on any page (keep in mind all cells are somehow connected to cells on other pages through formulas and lookups). When I change any cell random pages that are hidden just seem to pop up on the worksheet like multiple pages at once in a huge mess and I have to go to another page to make it go away. Has anyone ever had a similar problem?
Thank you,
Your friend

Hi Thank you for replying,
I tried that before when I take the data out I no longer have the issue because formulas are not re calculating when I change a cell. Maybe I can explain the issue I am having better.
So basically I have a macro to hide or unhide pages right. Once I run this macro when ever I change any cell on any page (keep in mind all cells are somehow connected to cells on other pages through formulas and lookups). When I change any cell random pages that are hidden just seem to pop up on the worksheet like multiple pages at once in a huge mess and I have to go to another page to make it go away. Has anyone ever had a similar problem?
Thank you,
Your friend

I doubt anyone can help with that without seeing the workbook, formulas and all...

hi,
No one has ever encountered anything like this? Where after running a macro changing any cell in a workbook causes random things to pop up on your screen like random tables from other worksheets on the workbook all mixed together in a mess.
Thank you,
your friend?

I'm sure someone may be able to help you, I doubt I have the expertise necessary.

I sure hope that you don't expect people to go through close to 400 lines of messy code.
A quick look, and I might be wrong here, shows that in the first +/- 100 lines all you do is open and hide sheets. Do a Google search like "Is selecting needed in Excel?"
After all, you haven't taken any time to clean it up. You have 50 posts so you must have seen how things are done or are expected to be done.

Hi,
Thank you fort he reply. The first hundred lines of opening all the sheets is crucial because I dont know which sheets a user has open prior to running the macro. Simply all the macro does is open all pages then close all pages except for the ones that satisfy the configuration the user chooses. I am unable to share a work book because of sensitive information in my model. I can not take the sensitive info out because it the issue will not occur otherwise. If there is any more info I can provide to help with this please let me know than you so much.

Can you post up the Workbook with sample data of some sort.

the issue could be one of anything. It sounds like you have some sort of onchange event firing off.

You can also probably simplify some code by looping all the sheets as well to hide or unhide what you need vs selecting each one individually.

Hello Cytop,
Thank you for the reply. I understand your position on this and apologize if you feel your time was wasted. I am sure it is evident I did not intend to bother anyone nor ask redundant questions. I appreciate all the helpful advice above and will try remember your comments while posting a thread in the future. I am an intern analyst for a fortune 50 company in southern California and as you can probably see my VBA skills are quite limited. However I feel I am making progress due to the help of this forum. I will re-make the macro this afternoon with everyone's comments in mind if I am successful in correcting the problem I will post the solution here if I am not I will end this thread as to not waste anymore time.
Thank you everyone who contributed so much,
Your Friend

Hey guys,
I took out

For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetHidden
Next WS

because I had it in there twice for no reason and it works fine now. I hope it lasts.
Thank you guys,
Your friend

Hey guys so I wrote new macro for this procedure and the macro works however I still have the same issue. I will post the code below I am beginning to think it has nothing to do with the macro maybe its something else entirely however it only occurs after I run the macro. I am not sure basically after I run the macro when I change any input cell in the model random pages just seem to appear on top of each other in a big mess. Any other ideas on a solution?
Thank you everyone,
Your friend.

Sub unhideforanalysis()
'

Dim cc As Worksheet: Set cc = Sheets("Read Prior to use")
Dim rng As Range, c As Range
Dim p As Range
Dim WS As Worksheet
Application.ScreenUpdating = False ' Turn-off screen updates
       If cc.Range("J24") Like "*MSI*" Then
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible
Next WS
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetHidden
Next WS
Sheets("Input").Visible = True
    Sheets("Analysis-MSI").Visible = True
    Sheets("Reports-MSI").Visible = True
    Sheets("ROI-MSI").Visible = True
    Sheets("Summary-MSI").Visible = True
    Sheets("Primer Calculator").Visible = True
    Sheets("Labor").Visible = True
    Sheets("paper calculator").Visible = True
    Sheets("Fluids").Visible = True
    Sheets("Consumables").Visible = True
  Sheets("Currency Table").Visible = True
    Sheets("Inputs explained").Visible = True
    Sheets("Input").Select
    Range("G7").Select
    End If
    If cc.Range("J24") Like "*Page*" Then
      For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible
Next WS
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetHidden
Next WS
      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
  Sheets("Input").Select
    Range("G7").Select
    End If
     If cc.Range("J24") Like "*Roll*" Then
       For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible
Next WS
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetHidden
Next WS
      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
     Sheets("Input").Select
    Range("G7").Select
    End If

    Sheets("Input").Select
    Sheets("Read Prior to use").Visible = True
    Sheets("Input").Select
    Range("B15").Select
    Application.ScreenUpdating = True ' Turn-off screen updates
     
     End Sub

Again. If you provide a sample, someone here can help you learn better and simplify your code. You have a lot of selects and other that could be made easier.

Hello,
I am marking this thread solved. Thank you guys so much. Sorry about not posting a workbook I get very scared sometimes about the models I am given to work on (i feel like if someone sees I posted it I will get fired) and if I take all the useful information out of them it becomes hard to really understand what I am trying to do I will find a solution to this going froward. Again thank you all so much for helping me in this matter.
Your Friend,
Marvin Abou