When I run my macro, the screen updates to different tabs even though I have set Application.ScreenUpdating = False:
Code
- Sub update_metro_2()
- Application.ScreenUpdating = False
- main_sheet = "By Sector and Industry"
- second_sheet = "By Sector"
- third_sheet = "By Industry"
- ThisWorkbook.Sheets(second_sheet).DropDowns("cmb_metro_2") = ThisWorkbook.Sheets(main_sheet).DropDowns("cmb_metro").ListIndex
- ThisWorkbook.Sheets(third_sheet).DropDowns("cmb_metro_3") = ThisWorkbook.Sheets(main_sheet).DropDowns("cmb_metro").ListIndex
- Call paste_values_sectors
- Call paste_values_industries
- End Sub
- Sub paste_values_sectors()
- main_sheet = "By Sector and Industry"
- second_sheet = "By Sector"
- third_sheet = "By Industry"
- top_row_source = 19
- bottom_row_source = 38
- left_column_source = 12
- right_column_source = 17
- top_row_dest = 9
- left_column_dest = 3
- ThisWorkbook.Sheets("UI Data").Range(Sheets("UI Data").Cells(top_row_source, left_column_source), Sheets("UI Data").Cells(bottom_row_source, right_column_source)).Copy
- ThisWorkbook.Sheets(second_sheet).Cells(top_row_dest, left_column_dest).PasteSpecial xlPasteValues
- End Sub
- Sub paste_values_industries()
- main_sheet = "By Sector and Industry"
- second_sheet = "By Sector"
- third_sheet = "By Industry"
- bottom_row_source = ThisWorkbook.Sheets("UI Data").Range("X17").Value
- top_row_source = 19
- left_column_source = 22
- right_column_source = 27
- top_row_dest = 9
- left_column_dest = 3
- ThisWorkbook.Sheets("UI Data").Range(Sheets("UI Data").Cells(top_row_source, left_column_source), Sheets("UI Data").Cells(bottom_row_source, right_column_source)).Copy
- ThisWorkbook.Sheets(third_sheet).Cells(top_row_dest, left_column_dest).PasteSpecial xlPasteValues
- obj = ThisWorkbook.Sheets(third_sheet).Range("C9", "H187").sort(ThisWorkbook.Sheets(third_sheet).Range("F8"), xlDescending)
- End Sub