Hi there,
Both of these:
[vba]With Worksheets(i).Activate
Nr = .Range("BD:BD").Rows.Count [/vba]
[vba]With Worksheets("QC").Activate
.Cells(j, 2).Value = Worksheets(i).Cells(Lj, 2).Value[/vba]
...will fall over. .Activate is a Method and thus, has no properties (such as .Cells). Untested, try:
Sub Quality_Check()
Dim i As Long 'sheet index
Dim j As Long 'Row Counter
Dim Lj As Long 'Local counter
Dim Nr As Long
j = 1
Nr = Worksheets(1).Rows.Count
'Check for Number of Lanes
For i = 1 To 12 Step 1
For Lj = 10 To Nr Step 1
MsgBox Worksheets(i).Cells(Lj, 43).Value
MsgBox Worksheets(i).Cells(Lj, 35).Value
If (Worksheets(i).Cells(Lj, 43).Value < Worksheets(i).Cells(Lj, 35)) Then
Worksheets("QC").Cells(j, 2).Value = Worksheets(i).Cells(Lj, 2).Value
j = j + 1
End If
Next Lj
Next i
End Sub
Hope that helps,
Mark