Dim secLoop As Section
For Each secLoop In ActiveDocument.Sections
If secLoop.PageSetup.DifferentFirstPageHeaderFooter = True Then
Msgbox "Section " & secLoop.Index _
& " has different first page headers & footers."
End If
Next secLoop