automatic close of pages

N

N+

hi all !!!
in presence of a "false" in my cell a1 i want my worksheet to save and close..
can u help me ??
ty , paolo
 
N

NateBuckley

Copy this into your sheet of choice.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value = False Or Cells(1, 1).Value = "FALSE" Then
ThisWorkbook.Save
Application.Quit
End If
End Sub

Hope this helps!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

and, or in vbe 7
format type in vbe 10
recognizing the day of the week 5
command for save and close my page 1
fill a cell with this.. 4
Excel writing on explorer's window 2
wait function 2
Excel VBA - Problem with Closing Print Preview 0

Top