Queryclose

[Bishop]

I have the following code:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
Unload AddTitle
AddOrFind.Show
End If
End Sub

What I'm trying to accomplish is when I click the red X (close) in the upper
right corner of AddTitle I want the AddTitle userform to close and the
AddOrFind userform to open. Instead what's happening is the AddOrFind
userform is showing on top of the AddTitle userform. How do I get the
AddTitle userform disappear?

 

[Patrick Molloy]

see below

I have the following code:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True

Me.Hide
'' Unload AddTitle 'rem out

 

[Bishop]

Ok, that gets rid of the AddTitle userform but if I pull it up again the
QueryClose function doesn't even respond. Clicking the red X does nothing.

Here's how this flows so you have a better idea. When the spreadsheet opens
the AddOrFind userform shows. AddOrFind has 3 buttons one of which calls the
AddTitle userform. If I call up the AddTitle userform and click the red X
AddTitle goes away (Me.Hide) and AddOrFind pops back up. If I choose
AddTitle again the userform shows but the QueryClose function no longer
responds.

 

[Bishop]

Thanks for the _Click info. I kept wondering why I couldn't use my mouse to
select those. However, I'm a little fuzzy on "just paste it in." What am I
pasting where?

 

[Patrick Molloy]

I never had this routine in my demo

Private Sub UserForm_QueryClose
....
End Sub

 

[Bishop]

I'm not seeing this demo you're talking about. Is it an attachment? Where
do I locate it?

 

[Patrick Molloy]

it was attached to my first response

<iframe scrolling="no" marginheight="0" marginwidth="0" frameborder="0"
style="width:240px;height:66px;margin:3px;padding:0;border:1px solid
#dde5e9;background-color:#ffffff;"
src="http://cid-b8e56c9a5f311cb7.skydrive.live.com/embedrowdetail.aspx/.Public/Excel Files/Userforms"></iframe>

http://cid-b8e56c9a5f311cb7.skydrive.live.com/browse.aspx/.Public/Excel Files/Userforms