Hi

Assuming that your sheet names are on Control, starting in A2 then try


Code:
--------------------
Sub bbb()
With Sheets("Control")
For Each ce In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
Set xx = Nothing
Set xx = Sheets(ce.Value).PivotTables(1).RowFields(ce.Offse t(0, 1).Value)
If xx Is Nothing Then
ce.Offset(0, 2).Value = "NO"
Else
ce.Offset(0, 2).Value = "YES"
End If
Next ce
End With
End Sub
--------------------


rylo


--
rylo
------------------------------------------------------------------------
rylo's Profile: http://www.thecodecage.com/forumz/member.php?userid=28
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=28930