Hi,

I have two worksheets , 5 colums and 5 rows,
to monitor differences btw the two I want to do the following:

If Cell A3 has changed I want to copy the whole row (3rd row), embolden A3
and
copy this over to another spreadsheet, in my code below the embolden part
doesn't function, your help is greatly appreciated.


Sub des()

k = 1
For i = 1 To 5
For j = 1 To 5
If Workbooks("WIP 20-12-04").Worksheets("Jobs").Cells(i, j)
< Workbooks("WIP 13-12-04").Worksheets("Jobs").Cells(i, j) Then
Workbooks("WIP 20-12-04").Worksheets("Jobs").Cells(i,
j).EntireRow.Copy Destination:=Worksheets("Changes").Cells(k, 1)
And Workbooks("WIP 20-12-04").Worksheets("Changes").Cells(i, j).Font.Bold =
True
k = k + 1
End If
Next j
Next i
End Sub