I cant work out why it is telling me this as i think i have it on the order but obviously not!
Thanks.
VBA Code:
Sub dupez2()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim rowz As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Set ws = Worksheets("sheet2")
Set ws1 = Worksheets("Totals")
rowz = ws1.Range("A2").End(xlDown).Row
a = ThisWorkbook.Sheets.Count
b = 3
c = 2
For b = 3 To a
For c = 2 To rowz
' ws = Worksheets("sheet" + b)
' Sheets("sheet2").Activate
With ws.Range("D2", ws.Range("D" & rows.Count).End(xlUp))
ws1.Cells(c, 3) = Worksheets("sheet" & b).Evaluate("SUMPRODUCT(1/COUNTIF(" & .Address & "," & .Address & "))")
' MsgBox Evaluate("SUMPRODUCT(1/COUNTIF(" & .Address & "," & .Address & "))")
b = b + 1
If b > a Then End
Next b
Next c
End With