Excel 2000

You can set up your workbook so that it will not allow
the user to close the workbook without filling in certain
cell. For example:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim checkRng As Range
Set checkRng = Sheets("Sheet1").Range("A1")
If checkRng.Value = "" Then
Cancel = True
MsgBox "Please fill in " & _
checkRng.Address(False, False) & "."
End If
End Sub

---
Place this in the ThisWorkbook module of your workbook.

HTH
Jason
Atlanta, GA



-----Original Message-----
Excel 2000
.

Just a thought...

Maybe this would be better in the _beforeSave event.

Then the user can open and close without having to fill in A1.

And with the _beforeclose event, I can save with A1 empty, fill in A1, close
(without saving).



Jason Morin wrote:

You can set up your workbook so that it will not allow
the user to close the workbook without filling in certain
cell. For example:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim checkRng As Range
Set checkRng = Sheets("Sheet1").Range("A1")
If checkRng.Value = "" Then
Cancel = True
MsgBox "Please fill in " & _
checkRng.Address(False, False) & "."
End If
End Sub

---
Place this in the ThisWorkbook module of your workbook.

HTH
Jason
Atlanta, GA

-----Original Message-----
Excel 2000
.


--

Dave Peterson

Yes, I wasn't sure which event made more sense. I suppose
if I had tested them both I would have reached the same
conclusions.

-----Original Message-----
Just a thought...

Maybe this would be better in the _beforeSave event.

Then the user can open and close without having to fill
in A1.

And with the _beforeclose event, I can save with A1
empty, fill in A1, close
(without saving).



Jason Morin wrote:

You can set up your workbook so that it will not allow
the user to close the workbook without filling in
certain
cell. For example:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim checkRng As Range
Set checkRng = Sheets("Sheet1").Range("A1")
If checkRng.Value = "" Then
Cancel = True
MsgBox "Please fill in " & _
checkRng.Address(False, False) & "."
End If
End Sub

---
Place this in the ThisWorkbook module of your workbook.

HTH
Jason
Atlanta, GA

-----Original Message-----
Excel 2000
.


--

Dave Peterson
.