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" <[email protected]> wrote in message news:...
> Hi Pat,
>
> Try:
>
> If Cells(1, 1).Value = "QS" Then
> MsgBox "New code"
> Exit Sub
> End If
>
>
> ---
> Regards,
> Norman
>