Sub Test()
Dim Fe As Worksheet
Application.ScreenUpdating = False
For Each Fe In Worksheets
Fe.Select
If ActiveWindow.FreezePanes = True Then MsgBox "There are " & Fe.Name & " panes in the active window"
Next Fe
Application.ScreenUpdating = True
End Sub