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