Hello, This is my first time posting so I hope I follow all the rules and am looking forward to your all's expertise. I've scoured the internet and many forums to try to resolve many issues and until now I've found the answers to my woes but this problem however has me at my wits end.
The code is located in the worksheet "Dashboard". It first unhides a named range based on the selection of a Active X combo box in the same sheet then hides a series of other named ranges on the same sheet. 20 named ranges in total, 19 hidden and 1 visible at any giving time and a different chart is displayed within the area that is visible based on selection of the Active X combobox.
The problem that I am having is that when you select a value from the Active X Combobox and the Change event code runs I get a Run-Time error '1004': Unable to set the Hidden property of the Range Class
[ATTACH=CONFIG]70498[/ATTACH]
Using the Debuger it will highlight the first line that refers to the named range to become visible:
[ATTACH=CONFIG]70499[/ATTACH]
If I step through the code it still ends in this result but its doing something I don't understand. When it reaches the TRUE case and starts running that part of code it will go past the first range as if it would unhide it then goes back to the beginning of the sub and starts to run as if it detected another Change even for the combobox and fired the code again. Once it gets back down to the TRUE case it bugs out.
Things I have tried to fix this based off my so far fruitless search for a solution:
- Ive made sure my workbook or any worksheets within are NOT protected
- Ive made sure there are NO COMMENTS IN ANY CELLS that would be hidden (there are no comments at all in the workbook this is running in)
- Ive tried moving the "ActiveX_ComboBox_Chart_Titles" (named range) to a different sheet
- Ive made sure there is nothing that is being pushed off the sheet by hiding the cells
- Ive tried removing all the charts from the "Dashboard" Worksheet and code still behaves the same when selecting from the combobox
- Ive made sure all my named ranges are spelled correctly
- Ive tried Option Explicit at the top of the worksheet, although im not entirely sure how this works on sheets but I saw as a suggestion to someone else's problem in module code
- Ive tried running this as a Private and Public sub
- Ive tried banging my head against the wall.. ect.
The code was originally written by me for another workbook that does the same thing and the code works there, ive even made sure all the Properties for the workbook, worksheet and combobox match between the two files.
One thing I have not tried and am desperately trying to avoid is starting from scratch with a new workbook and recreating the file. The Charts and data feeding them was quite cumbersome to set up.
Any help with this matter would be greatly appreciated!
Private Sub DB_Chart_Select_Change()
'******************************************
'Set Workbook and Worksheet reference variables
'******************************************
Dim Wb As Workbook
Dim WsDB As Worksheet
Set Wb = ThisWorkbook
Set WsDB = Wb.Sheets("Dashboard")
Dim WsGv As Worksheet
Set WsGv = Wb.Sheets("Global_Vars")
'******************************************
'Set Range Variables
'Each range refers to either a Chart to be displayed or
'the hidden area to the right or bottom of charts to the
'end/edge of the worksheet.
'*******************************************
Dim DBrng1 As Range
Dim DBrng2 As Range
Dim DBrng3 As Range
Dim DBrng4 As Range
Dim DBrng5 As Range
Dim DBrng6 As Range
Dim DBrng7 As Range
Dim DBrng8 As Range
Dim DBrng9 As Range
Dim DBrng10 As Range
Dim DBrng11 As Range
Dim DBrng12 As Range
Dim DBrng13 As Range
Dim DBrng14 As Range
Dim DBrng15 As Range
Dim DBrng16 As Range
Dim DBrng17 As Range
Dim DBrng18 As Range
Dim DBrng19 As Range
Dim DBrngCE As Range
Dim DBrngRE As Range
Set DBrng1 = WsDB.Range("Rows01_Totals_TM_Hours")
Set DBrng2 = WsDB.Range("Rows02_Totals_Trained_Hours")
Set DBrng3 = WsDB.Range("Rows03_Totals_Retained")
Set DBrng4 = WsDB.Range("Rows04_Totals_Lost")
Set DBrng5 = WsDB.Range("Rows05_Retained_VS_Lost")
Set DBrng6 = WsDB.Range("Rows06_Class_Hours_All")
Set DBrng7 = WsDB.Range("Rows07_Class_Hours_Spent")
Set DBrng8 = WsDB.Range("Rows08_Class_Hours_Retained")
Set DBrng9 = WsDB.Range("Rows09_Class_Hours_Lost")
Set DBrng10 = WsDB.Range("Rows10_Class_TM_All")
Set DBrng11 = WsDB.Range("Rows11_Class_TM_Trained")
Set DBrng12 = WsDB.Range("Rows12_Class_TM_Retained")
Set DBrng13 = WsDB.Range("Rows13_Class_TM_Lost")
Set DBrng14 = WsDB.Range("Rows14_Class_VS_Ind_All")
Set DBrng15 = WsDB.Range("Rows15_Class_VS_Ind_Trained")
Set DBrng16 = WsDB.Range("Rows16_Class_VS_Ind_Retained")
Set DBrng17 = WsDB.Range("Rows17_Class_VS_Ind_Lost")
Set DBrng18 = WsDB.Range("Rows18_Combo_CvsI_Lost_Retained")
Set DBrng19 = WsDB.Range("Rows19_Combo_Totals")
Set DBrngCE = WsDB.Range("Col_Right_To_End")
Set DBrngRE = WsDB.Range("Rows_Last_To_End")
'*******************************************
'Interpret Active X control input and perform action based on selection
'Active X control is a ComboBox(DB_Chart_Select) which is a list from
'the range of Chart Titles named "ActiveX_ComboBox_Chart_Titles" on the
'"Dashboard" Worksheet.
'The Value to compare each case to is set by the users selection from
'the ComboBox(DB_Chart_Select)
'Case Value is set by a cell reference to list of the chart titles
'located in the range of Cells "AF4:AF22" on the "Dashboard"
'Worksheet.
'Ranges of Rows are set to Hidden = False if the ComboBox(DB_Chart_Select)
'matches the Case value.
'Ranges of Rows are set to Hidden = True if the ComboBox(DB_Chart_Select)
'does not match the Case value.
'*******************************************
If WsGv.Range("A2").Value = False Then
Select Case DB_Chart_Select.Value
Case WsDB.Range("AF4").Value
Application.ScreenUpdating = False
DBrng1.EntireRow.Hidden = False
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF5").Value
Application.ScreenUpdating = False
DBrng2.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF6").Value
Application.ScreenUpdating = False
DBrng3.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF7").Value
Application.ScreenUpdating = False
DBrng4.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF8").Value
Application.ScreenUpdating = False
DBrng5.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF9").Value
Application.ScreenUpdating = False
DBrng6.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF10").Value
Application.ScreenUpdating = False
DBrng7.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF11").Value
Application.ScreenUpdating = False
DBrng8.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF12").Value
Application.ScreenUpdating = False
DBrng9.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF13").Value
Application.ScreenUpdating = False
DBrng10.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF14").Value
Application.ScreenUpdating = False
DBrng11.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF15").Value
Application.ScreenUpdating = False
DBrng12.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF16").Value
Application.ScreenUpdating = False
DBrng13.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF17").Value
Application.ScreenUpdating = False
DBrng14.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF18").Value
Application.ScreenUpdating = False
DBrng15.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF19").Value
Application.ScreenUpdating = False
DBrng16.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF20").Value
Application.ScreenUpdating = False
DBrng17.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF21").Value
Application.ScreenUpdating = False
DBrng18.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng19.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Case WsDB.Range("AF22").Value
Application.ScreenUpdating = False
DBrng19.EntireRow.Hidden = False
DBrng1.EntireRow.Hidden = True
DBrng2.EntireRow.Hidden = True
DBrng3.EntireRow.Hidden = True
DBrng4.EntireRow.Hidden = True
DBrng5.EntireRow.Hidden = True
DBrng6.EntireRow.Hidden = True
DBrng7.EntireRow.Hidden = True
DBrng8.EntireRow.Hidden = True
DBrng9.EntireRow.Hidden = True
DBrng10.EntireRow.Hidden = True
DBrng11.EntireRow.Hidden = True
DBrng12.EntireRow.Hidden = True
DBrng13.EntireRow.Hidden = True
DBrng14.EntireRow.Hidden = True
DBrng15.EntireRow.Hidden = True
DBrng16.EntireRow.Hidden = True
DBrng17.EntireRow.Hidden = True
DBrng18.EntireRow.Hidden = True
DBrngRE.EntireRow.Hidden = True
DBrngCE.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Select
'****************************************
ElseIf WsGv.Range("A2").Value = True Then
Exit Sub
End If
End Sub
Display More