How to "Quit"....Input Box

[CLR]

Hi All.........

k = InputBox("Enter Lastname, Firstname")

I have the above line in my macro, and once the box appears on the screen,
there is no way to QUIT the program............how do I add a "QUIT" button
to the box, please?

TIA
Vaya con Dios,
Chuck, CABGx3

 

[Dave Peterson]

You can't change that inputbox, but you could do something like:

dim k as string
k = inputbox(prompt:="...")
if trim(k)="" then
exit sub
end if

'keep going...

 

[CLR]

Okey doke...............that's some help, thanks much Dave......

Vaya con Dios,
Chuck, CABGx3

 

[JLGWhiz]

If you really want to quit the program, you can use the Cancel button with
this code:

If k = "" Or k = False Then
ThisWorkbook.Saved = True
Application.Quit
End If

A word of caution! If you have other workbooks open, this will affect them.
It also closes without saving anything in the ThisWorkbook sheets that may
have been added or changed during this session.

 

[CLR]

Ok...........thank you kindly.........I appreciate that.

Vaya con Dios,
Chuck, CABGx3