Input data

[Carl Johnson]

I have a spreadsheet that will require the end user to enter data in certain
cells. How can I setup the spreadsheet so that the user cannot close the
sheet until they have entered the data? Thank you in advance.

 

[Ron de Bruin]

You can use this in the BeforeClose event in the thisworkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.WorksheetFunction.CountA(Sheets("Sheet1") _
.Range("A1:a10")) < 10 Then
MsgBox "You must fill in all the cells"
Cancel = True
End If
End Sub

 

[Carl Johnson]

Thanks Ron worked great.

You can use this in the BeforeClose event in the thisworkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.WorksheetFunction.CountA(Sheets("Sheet1") _
.Range("A1:a10")) < 10 Then
MsgBox "You must fill in all the cells"
Cancel = True
End If
End Sub