Need a Error Handling for this Macro

  • Thread starter Thread starter Qull666
  • Start date Start date
Q

Qull666

Please help.

I have this Macro. But the problem starts when there is no data in the pivot
table or no data in the data source. It will prompt a run time error 1004.

Private Sub Worksheet_Activate()
Me.PivotTables(1).PivotCache.Refresh
Range("C1").Activate
End Sub

I believe there is a way to exit this sub if running this sub causes an error.

Thanks.
 
Private Sub Worksheet_Activate()
On Error Resume Next
Me.PivotTables(1).PivotCache.Refresh
Range("C1").Activate
End Sub
 
Thanks... it works.

Jacob Skaria said:
Private Sub Worksheet_Activate()
On Error Resume Next
Me.PivotTables(1).PivotCache.Refresh
Range("C1").Activate
End Sub
Click to expand...
 
Back
Top