That works perfect. Thanks.

Are there alternative routes?

Regards
Milli

Tom Ogilvy wrote:
*Make blnSwitch a public variable at the top of a general module.
(remove
anywhere else it might be declared)

Then it will be visible to all the modules in the project.

--
Regards,
Tom Ogilvy

"Milli " wrote in message
...
I have a problem with a Procedure Declaration to capture a value i
a
variable when clicking a button in a Dialog Box. I'm pretty fluen
in
VBA as such but I've hardly ever worked with Dialog Boxes.
I'm trying to pass the value of blnSwitch when clickin
Commandbutton_1
to Sub Status() and further to BaseRoutine().
Does anybody have a solution?

Milli

Sub BaseRoutine()
----
Call Status(blnSwitch)

Select Case blnSwitch

Case = "1"

Do something 1

Case = "2"

Do something 2

End Select

End Sub

Sub Status(blnSwitch as Boolean)
----
Call ShowForm(I guess this is where blnSwitch should be passed)

End Sub

Sub ShowForm()

MissingAnswersForm.Show

End Sub

Private Sub MissingAnswersForm_Initialize(vntReturnCriteria As
Variant)

Call BaseRoutine

End Sub

Private Sub CommandButton1_Click()

Unload Me
blnSwitch = "1"

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


---
Message posted from http://www.ExcelForum.com/


--
Message posted from http://www.ExcelForum.com