Or, to use your references:

If Cells(22, 11).Value = "QS" Then
MsgBox "New code"
Exit Sub
End If

if you do not want this to be case sensitive:

If UCase(Cells(22, 11).Value) = "QS" Then
MsgBox "New code"
Exit Sub
End If


---
Regards,
Norman



"Norman Jones" wrote in message news:...
Hi Pat,

Try:

If Cells(1, 1).Value = "QS" Then
MsgBox "New code"
Exit Sub
End If


---
Regards,
Norman