Perhaps...

Sub Check_CEO_OC2()
Dim i&, v As Variant
Const sX_values$ = "J,V,AD,AL,AX,BN,CP"
Const sEmptyValues$ = "F,N,R,Z,AH,AP,AT,BB,BF,BJ,BR,BU,BZ,CD,CH,CL"

For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
If Range("D" & i).Value = "Facility CEO" Then
For Each v In Split(sX_values, ",")
If Range(v & i) < "X" Then _
MsgBox "Cell " & v & " " & i & " Changed"
Next 'v
For Each v In Split(sEmptyValues, ",")
If Range(v & i) < "" Then _
MsgBox "Cell " & v & " " & i & " Changed"
Next 'v
End If
Next i
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion