For f = 10 To 1 Step -1
With [COLOR=red][B][COLOR=blue]Sheets(f[/COLOR][COLOR=blue]).[/COLOR][/B][/COLOR]Select
r = WorksheetFunction.CountIf([D6:D200], x)
If r > 0 Then
ch = ch &[COLOR=blue] [B]ActiveSheet[/B][/COLOR][B][COLOR=blue].Name[/COLOR][/B] & vbCr
tot = tot + r
End If
End With
Next