Vreemd Probleem Excel

[AatB]

Middels onderstaande code verberg alle werkbladen.

Private Sub Worksheet_Activate()
         
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = ThisWorkbook
    
    For Each ws In wb.Worksheets
        If ws.Name <> "Menu" Then
            ws.Visible = xlSheetVeryHidden
        End If
    Next
   
End Sub

Dan middels een dubbelklik in de sheet Menu maak ik de werkbladen weer zichtbaar en selecteer ik de laatste.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    With Sheets("Overview")
        .Visible = True
        .Select
    End With
   
    With Sheets("Data")
        .Visible = True
        .Select
    End With
   
End Sub

Als ik nu bij het geselecteerde werkblad een menu-item uit het lint aanklik, dan is dit ongelofelijk traag en duurt het een tijdje voordat het werkblad weer vrijgegeven wordt voor input.

Weet iemand hoe dit komt?

mvg,

Aat

 

[edmoor]

Ik heb wel wat aangepast in je code, maar of dat de vertraging verhelpt weet ik niet omdat ik geen vertraging zag.
Bekijk bijlage Map1.xlsm

 

[AatB]

Ik heb wel wat aangepast in je code, maar of dat de vertraging verhelpt weet ik niet omdat ik geen vertraging zag.
Bekijk bijlage 344295

Het lijkt er op dat het een en ander oplost.... het waarom is mij een raadsel.
Bedankt in ieder geval.

mvg,

Aat