Need help with message box.

[Pat]

I want to modify the following code:

If Not IsEmpty(Cells(22, 11)) Then
MsgBox "Old code"
Exit Sub
End If

to this:

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

It has not worked, what should it be.
Appreciate your help.
Pat

[Norman Jones]

Hi Pat,

Try:

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


---
Regards,
Norman



"Pat" <[email protected]> wrote in message
news:evdy0j8%[email protected]...
>I want to modify the following code:
>
> If Not IsEmpty(Cells(22, 11)) Then
> MsgBox "Old code"
> Exit Sub
> End If
>
> to this:
>
> If Not IsEmpty(Cells(22, 11) = "QS") Then
> MsgBox "New code"
> Exit Sub
> End If
>
> It has not worked, what should it be.
> Appreciate your help.
> Pat
>
>