close userform runs twice

[davidmyers]

Hi I have the following code

Private Sub CloseBtn_Click()
ActiveCell.EntireRow.Font.ColorIndex = 1
Unload UserForm4
MsgBox "closing"
End Sub

Can someone suggest a reason that it runs twice - I click Close, the form disappears, message box "closing" appears, then the form appears again, click Close, the form closes and the message box "closing" appears, click "ok". Why does the routine run twice?

I have other userforms on the same sheet that close without any problem

Thanks for any help
David

 

[jproffer]

Try putting the message above the unload line.

 

[davidmyers]

Hi, thanks for your response.
I removed the message altogether and tried this

Option Explicit
Dim boolRunOnce As Boolean


Private Sub CloseBtn_Click()
If boolRunOnce = False
   boolRunOnce = True
   ActiveCell.EntireRow.Font.ColorIndex = 1
   Unload Me
End If
End Sub

But it still runs twice - that is I need to click Close twice.
I suspect the problem is somewhere else and not in the CloseBtn_Click routine.
Any ideas?

Thanks
David

 

[jproffer]

Not really. If there's other code related to this, post it here and someone can take a look at it...see what they/we think.

 

[davidmyers]

Thanks for your help,
Found the problem - in code for the sheet I opened the same form twice - and so had to close it twice - sorry to have wasted your time.

 

[jproffer]

Not a waste at all my friend. Glad you got it straightened out.