Error message if no data for pivot exists

[Tharabai]

Hello..

Am filtering data based on the criteria and copy paste to new sheet. From the new sheet I have to put pivot.

Am using coding for the above. It works fine if there is data in new sheet. If no data exists in the new sheet, it throws an error message. Can this be customized error message like "No data to put pivot" or something like that.

Any help on this will be highly appreciated.

 

[Chihiro]

Something like below.

'Put this portion before the step in code that gives error
On Error Goto ErrHandler:

'Put this portion at end before End Sub
ErrHandler:
MsgBox "No data to put in Pivot"