Hi All,

I'm an absolute VBA novice (started teaching myself yesterday!) so please bear with me.

My form works and inputs my data into the sheet but I want it to throw up a msgbox with an error if any of the info isn't filled in.

These are the names of the items that need to be nonzero/true in order to accept the form:

MaterialDrop - Dropdown box
BatchBox - Free text box
SupplierDrop - Dropdown box
RejectedBox - Free text box
RfRBox - Free text box
ClassFrame - Frame containing 8 selectable items

I read that there's a way to do it by marking the tag property of each item as MUST and then referencing back to that so I've put MUST on each one but don't know how to code it.

Here is the code for the button click:

Private Sub FinishButton_Click()

'Set worksheet

Set ws = Worksheets("Rejects")

'Find end row number

erow = WorksheetFunction.CountA(Range("B:B")) + 1

'Find Start row number

srow = WorksheetFunction.CountA(Range("A:A")) + 2

With ws

If srow - 1 < erow Then .Range(Cells(srow, 1), Cells(erow, 1)).Value = 1 + (Cells(srow - 1, 1))

End With

If srow - 1 < erow Then Call UserForm_Initialize

End Sub