Delete sheets with "@"

[Angus]

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

[mangesh_yadav]

Sub DeleteSheets()
Application.DisplayAlerts = False
For Each sht In Worksheets
If InStr(sht.Name, "@") > 0 Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
End Sub


call the above in your sub.

Mangesh

[Angus]

Thanks.

"mangesh_yadav" wrote:

>
> Sub DeleteSheets()
> Application.DisplayAlerts = False
> For Each sht In Worksheets
> If InStr(sht.Name, "@") > 0 Then
> sht.Delete
> End If
> Next
> Application.DisplayAlerts = True
> End Sub
>
>
> call the above in your sub.
>
> Mangesh
>
>
> --
> mangesh_yadav
> ------------------------------------------------------------------------
> mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
> View this thread: http://www.excelforum.com/showthread...hreadid=379980
>
>