Validate Cell

[Duncan]

Hi

I have the code below. This applies to a large number of worksheets in a
workbook.

At the minute if no information is entered in cell E14 the Warning is
displayed and the macro stops.

What I am after is for only the following to be entered in cell E14 and then
the macro to call PrintandEmail.

I am trying to do this without usind the Data>Validation>Allow list on all
my worksheets.

00D
00E
00M
00C

Thanks

Sub Validate_PayGroup()
If Range("E14") = "" Then
MsgBox "A Paygroup Must Be Entered (00M, 00E, 00D or 00C)" & vbCr & vbCr _
& "PLEASE PRESS OK AND MAKE SURE A VALID PAY GROUP IS ENTERED", vbCritical,
"WARNING - PAYROLL MEMOS"
Else: Call PrintandEmail
End If
End Sub

 

[Duncan]

That work a treat.

Many thanks for that.

Dunc