Code to test value in Cell

[erock24]

I was hoping for code that will test cells e3:g3 in sheet 1 of workbook "AR" for a value of "OK" or "Error". These cells contain if formulas that return "OK" or "Error"
If all Cells = "OK" then I need the macro to put "Ok" in D5 in sheet 1 of workbook "Guide". If 1 or more cells = "Error" then put "Error" in D5.
Also, I know I could use a formula in D5, but I really need the code for my specific application.

Thank you very much for your time and help.

 

[BrianB]

   Dim CheckRange As Range
    Dim ResultsRange As Range
    '-
    Set CheckRange = Workbooks("AR").Worksheets("Sheet1").Range("E3:G3")
    Set ResultsRange = Workbooks("Guide").Worksheets("Sheet1").Range("D5")
    '-
    If WorksheetFunction.CountIf(CheckRange, "OK") <> 3 Then
       ResultsRange.Value = "Error"
    Else
         ResultsRange.Value = "OK"
    End If

 

[erock24]

Macro works perfect. thank you for your help.

about the duplicate post:
http://www.mrexcel.com/board2/viewtopic.php?p=1386955#1386955
I don't know how it happend. Computer trouble.

 

[BrianB]

about the duplicate post:

At times the MrExcel server seems to lock up and we can be unsure that a message has been accepted.