Userform afsluiten bij wisselen van Sheet

[SjofaaSj]

Ik start een userform op met vb Modeless omdat ik de gebruiker de sheet wil laten manipuleren terwijl het formulier actief is.
Maar ik wil we dat elke openstaande userform afgesloten wordt zodra de user naar een andere sheet gaat.

Ik probeerde het met deze code:

Private Sub Workbook_SheetActivate()
    For Each UForm In VBA.UserForms
        If UForm.Visible = True Then
            Unload UForm
        End If
    Next
End Sub

maar hoewel dit werkt wanneer ik de macro manueel laat lopen,
verdwijnt m'n userform niet als ik gewoon van sheet verander.

How come?
Anyone?

Tx

 

[HSV]

Hoi,

In thisworkbook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 For Each UForm In VBA.UserForms
        If UForm.Visible = True Then
            Unload UForm
        End If
    Next
End Sub

 

[SjofaaSj]

Works like a charm!

Dankjewel Harry!
:thumb:

SjofaaSj