Hiding Tabs using specific value in Cell

cboyce44

New Member
Joined
Oct 3, 2023
Messages
39
Office Version
  1. 365
Platform
  1. Windows
I am wondering if there is a simpler way to program Excel to hide all other opened tabs except the ones I want opened depending on a drop down value in a specific cell? On my "Main Form" tab, I have it so when the user selects a numbered value (Ex. 30, 31, 40...etc.) it shows only those related tabs. For example, if the user selects 30 in Main Form Cell D5, I only want 2 tabs to show (NEX 030, and NEX 030 SD2_DX2). This used to work until I had to add a few more tabs. So now what I have as a code is too big because I have way too many tabs. Thank you for all of your help!

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim MachineType As Integer

MachineType = Worksheets("MAIN FORM").Range("D5").Value
    
        If MachineType = "110A" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = True
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    
    Else
        If MachineType = "120A" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = True
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "130A" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = True
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "C5" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = True
    Else
        If MachineType = "480A" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = True
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "480B" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = True
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1400" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = True
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1500" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = True
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1800" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = True
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1900" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = True
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2000" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = True
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2800" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = True
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2900" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = True
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "3000" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = True
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "5000" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = True
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "Crest" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = True
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1" Then
            Worksheets("NEX 001").Visible = True
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = True
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "30" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = True
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = True
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "31" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = True
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = True
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
     Else
        If MachineType = "35" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = True
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "40" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = True
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = True
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "41" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = True
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = True
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "100" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = True
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "200" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = True
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "50" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = True
            Worksheets("S Touch 50").Visible = True
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "550" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = True
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "130" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = True
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = True
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "131" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = True
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = True
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "140" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = True
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = True
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "141" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = True
            Worksheets("NEX 100").Visible = True
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "230" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = True
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = True
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "231" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = True
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = True
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "240" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = True
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = True
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "241" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = True
            Worksheets("NEX 200 SD2_DX2").Visible = True
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1600" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = True
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "1700" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = True
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2600" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = True
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2700" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = False
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = True
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
    Else
        If MachineType = "2900" Then
            Worksheets("NEX 001").Visible = False
            Worksheets("NEX 030").Visible = False
            Worksheets("NEX 031").Visible = False
            Worksheets("NEX 040").Visible = False
            Worksheets("NEX 041").Visible = False
            Worksheets("NEX 100").Visible = False
            Worksheets("NEX 001 SD2_DX2").Visible = False
            Worksheets("NEX 030 SD2_DX2").Visible = False
            Worksheets("NEX 031 SD2_DX2").Visible = False
            Worksheets("NEX 040 SD2_DX2").Visible = False
            Worksheets("NEX 041 SD2_DX2").Visible = False
            Worksheets("NEX 200 SD2_DX2").Visible = False
            Worksheets("S Flex 35").Visible = False
            Worksheets("S Flex 50").Visible = False
            Worksheets("S Touch 50").Visible = False
            Worksheets("S Touch 550").Visible = False
            Worksheets("S 480A_480B").Visible = False
            Worksheets("S 110A or 120").Visible = False
            Worksheets("S 130A").Visible = False
            Worksheets("S 1400").Visible = False
            Worksheets("S 1500SD").Visible = False
            Worksheets("S 1800SD").Visible = False
            Worksheets("S 1900SD").Visible = False
            Worksheets("S 2000SD").Visible = False
            Worksheets("S 2800E_C2900").Visible = True
            Worksheets("S3000").Visible = False
            Worksheets("S5000").Visible = False
            Worksheets("C 1600D").Visible = False
            Worksheets("C 1700SD").Visible = False
            Worksheets("C 2600_C2700").Visible = False
            Worksheets("Crest").Visible = False
            Worksheets("C5").Visible = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End Sub
 

Excel Facts

Highlight Duplicates
Home, Conditional Formatting, Highlight Cells, Duplicate records, OK to add pink formatting to any duplicates in selected range.
depending on a drop down value in a specific cell

Do the following.
In 2 columns that you have available in the "Main Form" sheet, let's say AA and AB, (although I assume that you have the list of values of drop down in a range of cells, so in the next column you put the sheet name).

For example:
varios 07oct2024.xlsm
ABCDEZAAAB
1CodeSheets
2110A110A or 120
3120A110A or 120
4130AS 130A
51400C5C5
6480AS 480A_480B
7481BS 480A_480B
81400S 1400
91500S 1500SD
101800S 1800SD
111NEX 001, NEX 001 SD2_DX2
1230NEX 030, NEX 030 SD2_DX2
Main Form
Cells with Data Validation
CellAllowCriteria
D5List=$AA$2:$AA$103

If several codes have the same sheet, then you put a record for each code (pink color).
If a code has several sheets, then in the cell on the right you put the sheets separated by a comma (blue color).

The code can be reduced to this:
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
   
  Dim sh As Worksheet
  Dim f As Range
  Dim i As Long
  Dim vr As Variant, cr As Variant
 
  Set sh = Sheets("MAIN FORM")
  Set f = sh.Range("AA:AA").Find(Target.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    For i = 2 To sh.Range("AA" & Rows.Count).End(3).Row
      For Each vr In Split(sh.Range("AB" & i).Text, ",")
        Sheets(Trim(vr)).Visible = False
      Next
    Next
    For Each vr In Split(f.Offset(0, 1).Text, ",")
      Sheets(Trim(vr)).Visible = True
    Next
  End If
End Sub

Note: Make sure that the sheet names are written correctly in the AB column, otherwise you will receive an error 9.

🤗
 
Upvote 0
Do the following.
In 2 columns that you have available in the "Main Form" sheet, let's say AA and AB, (although I assume that you have the list of values of drop down in a range of cells, so in the next column you put the sheet name).

For example:
varios 07oct2024.xlsm
ABCDEZAAAB
1CodeSheets
2110A110A or 120
3120A110A or 120
4130AS 130A
51400C5C5
6480AS 480A_480B
7481BS 480A_480B
81400S 1400
91500S 1500SD
101800S 1800SD
111NEX 001, NEX 001 SD2_DX2
1230NEX 030, NEX 030 SD2_DX2
Main Form
Cells with Data Validation
CellAllowCriteria
D5List=$AA$2:$AA$103

If several codes have the same sheet, then you put a record for each code (pink color).
If a code has several sheets, then in the cell on the right you put the sheets separated by a comma (blue color).

The code can be reduced to this:
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  
  Dim sh As Worksheet
  Dim f As Range
  Dim i As Long
  Dim vr As Variant, cr As Variant
 
  Set sh = Sheets("MAIN FORM")
  Set f = sh.Range("AA:AA").Find(Target.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    For i = 2 To sh.Range("AA" & Rows.Count).End(3).Row
      For Each vr In Split(sh.Range("AB" & i).Text, ",")
        Sheets(Trim(vr)).Visible = False
      Next
    Next
    For Each vr In Split(f.Offset(0, 1).Text, ",")
      Sheets(Trim(vr)).Visible = True
    Next
  End If
End Sub

Note: Make sure that the sheet names are written correctly in the AB column, otherwise you will receive an error 9.

🤗
So, I did what you said. It seems like I wrote the names correctly in the AB column, but I'm getting the error 9. It is getting the error here in the code:

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
   
  Dim sh As Worksheet
  Dim f As Range
  Dim i As Long
  Dim vr As Variant, cr As Variant
 
  Set sh = Sheets("MAIN FORM")
  Set f = sh.Range("AA:AA").Find(Target.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    For i = 2 To sh.Range("AA" & Rows.Count).End(3).Row
      For Each vr In Split(sh.Range("AB" & i).Text, ",")
       [B] Sheets(Trim(vr)).Visible = False[/B]
      Next
    Next
    For Each vr In Split(f.Offset(0, 1).Text, ",")
      Sheets(Trim(vr)).Visible = True
    Next
  End If


End Sub

Here is a list of my worksheets via vba, and what I typed in the AA and AB columns:
1728396308312.png

1728396349952.png

1728396367049.png



Is this due to the fact that I have a cell before that the user selects, then it determines the "numbers" in the cell next to it which determines which tabs are visible?
1728396160719.png
 
Upvote 0
I checked sheet by sheet in your image and this sheet does not exist:
NEX 141

1728397488058.png

But so you don't get lost in your sheet names, I added a condition to check if the sheet exists, try this:

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
   
  Dim sh As Worksheet
  Dim f As Range
  Dim i As Long
  Dim vr As Variant, cr As Variant
  Dim cad As String
 
  Set sh = Sheets("MAIN FORM")
  Set f = sh.Range("AA:AA").Find(Target.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    For i = 2 To sh.Range("AA" & Rows.Count).End(3).Row
      For Each vr In Split(sh.Range("AB" & i).Text, ",")
        If Evaluate("ISREF('" & Trim(vr) & "'!A1)") Then
          Sheets(Trim(vr)).Visible = False
        Else
          cad = cad & Trim(vr) & vbCr
        End If
      Next
    Next
    For Each vr In Split(f.Offset(0, 1).Text, ",")
      If Evaluate("ISREF('" & Trim(vr) & "'!A1)") Then
        Sheets(Trim(vr)).Visible = True
      Else
        cad = cad & Trim(vr) & vbCr
      End If
    Next
    If cad <> "" Then MsgBox "These sheets do not exist: " & vbCr & cad
  End If
End Sub

😇


Note XL2BB:
For the future, it would help greatly if you could give us the sample data in a form that we can copy to test with, rather that a picture.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in
Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.
 
Upvote 0
Solution
I checked sheet by sheet in your image and this sheet does not exist:
NEX 141


But so you don't get lost in your sheet names, I added a condition to check if the sheet exists, try this:

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  
  Dim sh As Worksheet
  Dim f As Range
  Dim i As Long
  Dim vr As Variant, cr As Variant
  Dim cad As String
 
  Set sh = Sheets("MAIN FORM")
  Set f = sh.Range("AA:AA").Find(Target.Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    For i = 2 To sh.Range("AA" & Rows.Count).End(3).Row
      For Each vr In Split(sh.Range("AB" & i).Text, ",")
        If Evaluate("ISREF('" & Trim(vr) & "'!A1)") Then
          Sheets(Trim(vr)).Visible = False
        Else
          cad = cad & Trim(vr) & vbCr
        End If
      Next
    Next
    For Each vr In Split(f.Offset(0, 1).Text, ",")
      If Evaluate("ISREF('" & Trim(vr) & "'!A1)") Then
        Sheets(Trim(vr)).Visible = True
      Else
        cad = cad & Trim(vr) & vbCr
      End If
    Next
    If cad <> "" Then MsgBox "These sheets do not exist: " & vbCr & cad
  End If
End Sub

😇


Note XL2BB:
For the future, it would help greatly if you could give us the sample data in a form that we can copy to test with, rather that a picture.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in
Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.
Dante, thank you SO much! I'm sorry I missed that small error. I looked over it multiple times as well! lol It is working perfectly now! Thank you very much! :)
 
Upvote 1

Forum statistics

Threads
1,222,905
Messages
6,168,950
Members
452,228
Latest member
just4jeffrey

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top