I have a VBA to "show pages" by email address at a pivot table. Then the
program calls a Sub to email the sheets with sheet name "@". But how to
delete those sheets with "@" after sending the emails?

Sub PagebyUser()
Sheets("PivotData").Select
ActiveSheet.PivotTables("PivotTable1").ShowPages PageField:="Email"
Call SendbyUser
End Sub