Hallo, ich hab hier eine Denk- oder Sehschwäche:

 If varEinSchalterLux.Value = "x" And varEinblendLux.Hidden = True Then [3. Vertreter einblenden]
        If varAusblendLux1.Hidden = False Then
           varAusblendLux1.Hidden = True
        End If
        
        If varAusblendLux2.Hidden = False Then
           varAusblendLux2.Hidden = True
        End If
        
        If varAusblendLux3.Hidden = False Then
           varAusblendLux3.Hidden = True
        End If
        
        If varAusblendLux4.Hidden = False Then
           varAusblendLux4.Hidden = True
        End If
        
        If varAusblendLux5.Hidden = False Then
           varAusblendLux5.Hidden = True
        End If
        
        If varAusblendLux6.Hidden = False Then
           varAusblendLux6.Hidden = True
        End If
        
        If varAusblendLux7.Hidden = False Then
           varAusblendLux7.Hidden = True
        End If
        varEinblendLux.Hidden = False
        
        Set varAusblendVertreter3 = ActiveSheet.Rows("55")
        Set varSchalterVertreter3 = ActiveSheet.Cells(55, 10)

        If varSchalterVertreter3.Value = "x" And varAusblendVertreter3.Hidden = True Then
            varAusblendVertreter3.Hidden = False
            
        Else
            If varAusblendVertreter3.Hidden = False Then
            varAusblendVertreter3.Hidden = True
            End If
        End If
            
        [If varSchalterVertreter3.Value <> "x" And varAusblendVertreter3.Hidden = False Then]
        [    varAusblendVertreter3.Hidden = True]
        [End If]
             
    Else: [3. Vertreter ausblenden]

Bei der letzten Zeile kommt die Fehlermeldung siehe Thread-Name, der Fehler muss ja davor sein. Ich hab hier nur ein Code-Ausschnitt, der Fehler sollte aber dort enthalten sein.