How to "Quit"....Input Box

  • Thread starter Thread starter CLR
  • Start date Start date
C

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
 
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...
 
Okey doke...............that's some help, thanks much Dave......

Vaya con Dios,
Chuck, CABGx3
 
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.
 
Back
Top