Jeg vil gerne sætte/slette et flueben. Hvordan fastholder jeg det i Userformen når denne lukkes?

 Det virker som om fluebenet optræder i 2 versioner. Det normale og når Userformen loades i en "Goostet" version.

Nedenstående kode virker ikke efter hensigten.

Kan nogen komme med et forslag.

Private Sub CheckBox1_Click()

'MsgBox ("Dette er verdien= " & CheckBox1.Value)

End Sub

Private Sub UserForm_Initialize()

        On Error Resume Next

        CheckBox1.Value = Evaluate("CheckBox1_Value")

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

      On Error Resume Next

      ThisWorkbook.Names("CheckBox1_Value").Delete

      ThisWorkbook.Names.Add Name:="CheckBox1_Value", RefersToR1C1:="=" & Chr$(34) & CheckBox1.Value & Chr$(34), Visible:=True 'False

End Sub