Dim Ws As Worksheet, pt As PivotTable
M = Range("F7").Value
For Each Ws In Worksheets
For Each pt In Ws.PivotTables
If M < 10 Then
pt.SourceData = "'C:\Doc1\2013\[Document1.xls]'!data"
Else
pt.SourceData = "'C:\Doc1\2013\[Document2.xls]'!data"
End If
Next pt
Next Ws