Userform forsvinder

Er det "krydsknappen" de anvender?

Ja - det kan godt lade sig gøre - ved f.eks. et højreklik i en bestemt celle.

Ja det er "krydsknappen" de anvender?

Hvordan? :-)

sæt denne kode ind i dit formmodul


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim A As Variant
A = MsgBox("vil du afslutte Formen", vbYesNo, "AFSLUT")
If A <> vbYes Then
Cancel = True
Exit Sub
End If
Unload Me

End Sub

Rem anbringes "under" det relevante ark
Const aktiveringsCelle = "A1"                      '<--- justeres
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$A$1" Then
        Cancel = True
        Load UserForm1                              '<--- justerformnavn justeres
        UserForm1.Show
    End If
End Sub

Jeg kan ikke se muligheden for at acceptere svar på denne tråd.

Hvem skal lægge svar?

Supertekst.

OK - det får du