Hiya!

i am trying to apply a format (color) to a cell in one workbook based on the content of another cell in another workbook.

What i would likethe macro to do is:
  • Check the value of the cell
  • If the value of the cell is superior or equal to 95 then...
  • Change the color of the equivalent cell in the other workbook

The setup of each sheet on each workbook is the same. Just different data in each...

Here is what i have so far which obviously doesn't work... I can't seem to select the relevant workbook and worksheet properly and tell it where to apply the formating.

Sub Ditribution_Checker()
Dim nCol As Integer
Dim J As Integer

With Workbooks("Blah.xls").Sheets("Phrase")
nCol = 2
For J = 2 To 33
If .Cells(J, nCol).Value >= 95 Then
Workbooks("People.xls").Sheets("Phrase").Activate
.Cells(J, nCol).Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
Next J
End With
End Sub

Hopefully some of you out there will make sense of it all!!!

Many thanks in advance!!!!!