I get this error when I press the Refresh Button on my spreadsheet to
generate a PivotTable.

This is what is on the Display:
This command requires at least two rows of source data. You cannot use the
command on a selection in only on row. Try the following:

If you're using an advanced filter, select a range of cells that contains at
least tow rows of data. Then click the Advanced Filter command again.

If you're creating a PivotTable report or PivotChart report, type a

My spreadsheet was designed in 95 and I have tried running this macro in a
spreadsheet saved as 95 and as 2003. And I still get the same error. I have
rebooted my machine.

Here is the code:

This is the line that is highlighted when I use Debug.

ActiveSheet.PivotTables("PivotTable3").RefreshTabl e

I had a similar issue with the same spreadsheet but a different PivotTable.

I removed the protection from the sheets involved. And now one is working
and the other is still failing.

Sub TotalChapterMeetings()
'

Application.ScreenUpdating = False
Sheets("Chapter Mtgs Pivot Table").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTabl e
Selection.Sort Key1:="R3C2", Order1:=xlDescending, Type:=xlSortValues, _
OrderCustom:=1, Orientation:=xlTopToBottom
Sheets("Chapter Meetings Details").Select
Application.ScreenUpdating = True
End Sub

Sub TotalBoardMeetings()
'update pivot table

'
Application.ScreenUpdating = False
Sheets("PCS Board Mtgs Pivot Table").Select
Range("C4").Select
ActiveSheet.PivotTables("PivotTable3").RefreshTabl e
If Range("a22").Value = 1 And Range("a23").Value = 1 Then
With ActiveSheet.PivotTables("PivotTable3").PivotFields ("yes")
.PivotItems("(blank)").Visible = False
End With
End If
If Range("c4").Value < 1 Then GoTo 10
Selection.Sort Key1:="R4C3", Order1:=xlDescending,
Type:=xlSortValues, _
OrderCustom:=1, Orientation:=xlTopToBottom
10 Sheets("PCS Board Meetings Details").Select
Application.ScreenUpdating = True


End Sub

Any assistance would be appreciated.
Darlene