Thread: VBA Help needed
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ben McClave Ben McClave is offline
external usenet poster
 
Posts: 173
Default VBA Help needed

Darin,

This is ugly, but it works:

Sub Check_CEO_OC()
Dim LR As Long
Dim i As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If Range("D" & i).Value = "Facility CEO" Then
If Range("f" & i).Value < "" Then MsgBox "Cell F" & i & " Changed"
If Range("j" & i).Value < "X" Then MsgBox "Cell J" & i & " Changed"
If Range("n" & i).Value < "" Then MsgBox "Cell N" & i & " Changed"
If Range("r" & i).Value < "" Then MsgBox "Cell R" & i & " Changed"
If Range("v" & i).Value < "X" Then MsgBox "Cell V" & i & " Changed"
If Range("z" & i).Value < "" Then MsgBox "Cell Z" & i & " Changed"
If Range("ad" & i).Value < "X" Then MsgBox "Cell AD" & i & " Changed"
If Range("ah" & i).Value < "" Then MsgBox "Cell AH" & i & " Changed"
If Range("al" & i).Value < "X" Then MsgBox "Cell AL" & i & " Changed"
If Range("ap" & i).Value < "" Then MsgBox "Cell AP" & i & " Changed"
If Range("at" & i).Value < "" Then MsgBox "Cell AT" & i & " Changed"
If Range("ax" & i).Value < "X" Then MsgBox "Cell AX" & i & " Changed"
If Range("bb" & i).Value < "" Then MsgBox "Cell BB" & i & " Changed"
If Range("bf" & i).Value < "" Then MsgBox "Cell BF" & i & " Changed"
If Range("bj" & i).Value < "" Then MsgBox "Cell BJ" & i & " Changed"
If Range("bn" & i).Value < "X" Then MsgBox "Cell BN" & i & " Changed"
If Range("br" & i).Value < "" Then MsgBox "Cell BR" & i & " Changed"
If Range("bu" & i).Value < "" Then MsgBox "Cell BU" & i & " Changed"
If Range("bz" & i).Value < "" Then MsgBox "Cell BZ" & i & " Changed"
If Range("cd" & i).Value < "" Then MsgBox "Cell CD" & i & " Changed"
If Range("ch" & i).Value < "" Then MsgBox "Cell CH" & i & " Changed"
If Range("cl" & i).Value < "" Then MsgBox "Cell CL" & i & " Changed"
If Range("cp" & i).Value < "X" Then MsgBox "Cell CP" & i & " Changed"

End If
Next i
End Sub