flashing of cell

[vmjan02]

Is there a better way to get this code a bit shorter. As it works perfect, but need to modify in a much easier way.
any help...

If Sheets("Report").Range("I7").Value = "Raw Data Miss Match" Then
    Range("H6").Interior.Color = vbCyan
    Range("J6:M6").Interior.Color = vbCyan
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbWhite
    Range("J6:M6").Interior.Color = vbWhite
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbCyan
    Range("J6:M6").Interior.Color = vbCyan
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbWhite
    Range("J6:M6").Interior.Color = vbWhite
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbCyan
    Range("J6:M6").Interior.Color = vbCyan
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbWhite
    Range("J6:M6").Interior.Color = vbWhite
    Application.Wait (Now + TimeValue("0:00:01"))
    Range("H6").Interior.Color = vbCyan
    Range("J6:M6").Interior.Color = vbCyan
    Range("I7:M7").Interior.Color = vbCyan
    MsgBox "In Correct Handle Calls in Raw Data" & vbNewLine & "Ref sheet RawData Check", vbCritical, "Raw Data Miss Match"
    Sheets("RawData Check").Select
Else
    Range("H6").Interior.Color = vbWhite
    Range("J6:M6").Interior.Color = vbWhite
    Range("I7:M7").Interior.Color = vbWhite
End If

 

[johnnyL]

If Sheets("Report").Range("I7").Value = "Raw Data Miss Match" Then
'
    For Counter = 2 To 7
        If Counter Mod 2 = 0 Then
            Range("H6,J6:M6").Interior.Color = vbCyan
            Application.Wait (Now + TimeValue("0:00:01"))
        Else
            Range("H6,J6:M6").Interior.Color = vbWhite
            Application.Wait (Now + TimeValue("0:00:01"))
        End If
    Next
'
    Range("H6,J6:M6,I7:M7").Interior.Color = vbCyan
'
    MsgBox "In Correct Handle Calls in Raw Data" & vbNewLine & "Ref sheet RawData Check", vbCritical, "Raw Data Miss Match"
    Sheets("RawData Check").Select
Else
    Range("H6,J6:M6,I7:M7").Interior.Color = vbWhite
End If

 

[Eric W]

A minor tweak to johnnyL's code:

If Sheets("Report").Range("I7").Value = "Raw Data Miss Match" Then
'
    For Counter = 2 To 7
        Range("H6,J6:M6").Interior.Color = Array(vbCyan, vbWhite)(Counter Mod 2)
        Application.Wait (Now + TimeValue("0:00:01")
    Next
'
    Range("H6,J6:M6,I7:M7").Interior.Color = vbCyan
'
    MsgBox "In Correct Handle Calls in Raw Data" & vbNewLine & "Ref sheet RawData Check", vbCritical, "Raw Data Miss Match"
    Sheets("RawData Check").Select
Else
    Range("H6,J6:M6,I7:M7").Interior.Color = vbWhite
End If

 

[vmjan02]

@johnnyL and @Eric W

Thanks it worked well.