Modeless form that still pauses code execution

Question

Is there anyway to have a userform that acts modeless, while still pausing code execution like a modal form?

I\'d like the userform to show, but still allow interact

Answer 1

Here's what I do.

This example is for a form I called "Find Header". The code tries to find several column headers, but the markers for a few of them may be missing (and the header text may have been overwritten with something random), so I may need to pause and ask the user to locate (click on) some of the headers for me:

First, put this declaration in a standard module:

Public bDlgFindHeaderIsShowingModeless As Boolean

Then, put this in the event procedure for any button or other control that dismisses the modeless dialog, such as the Click events for the form's OK and Cancel buttons:

bDlgFindHeaderIsShowingModeless = False

Then, put this wherever in your code you want to show the modeless form while paused for user interactivity:

bDlgFindHeaderIsShowingModeless = True 'init
frmFindHeader.Show vbModeless
Do
    If Not bDlgFindHeaderIsShowingModeless Then Exit Do
    DoEvents
Loop

Yes, it churns the CPU, so you might not want to do it if you're on a single-core processor and there are critically important background processes running. But it works; the user is able to easily and smoothly interact with Excel while the modeless form displays. The user doesn't feel like they are fighting an endless loop.