Assumes col A has an entry by which to count the number of rows

mtotal =
Application.CountA(Sheets("sheet9").Range("c2,d2,h 2,j2").EntireColumn)
needed = Application.CountA(Sheets("sheet9").Columns(1)) * 4
If mtotal < needed Then
Cancel = True
MsgBox needed
End If

--
Don Guillett
SalesAid Software

"flow23" wrote in message
...
well thats the problem, the user can go on creating rows and rows of data.
but in the end when he/she saves, the columns for those rows should have
some data.



"Don Guillett" wrote:

Particular sheet____________
Particular row_____________

Put this in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Application.CountA(Sheets("sheet9").Range("c2,d2,h 2,j2")) < 4 Then
Cancel = True
MsgBox "Not finished"
End If
End Sub

--
Don Guillett
SalesAid Software

"flow23" wrote in message
...
I have a sheet for user to input data. However filed in column C,D,H and
J
are mandatory.
The file shouldnt save if data isnt entered into any of these columns.

any help