Right click sheet tab of listview codeinsert this.

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
On Error GoTo nosheet
Application.DisplayAlerts = False
Sheets(CStr(Target)).Delete
Application.DisplayAlerts = True
nosheet:
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dias" wrote in message
...
Hi !
How can i delete sheets select name in list ?
I have a list of countries each one has a sheet with is name.
Wat i want is a code that wen i select one of those countries in the list
i can delete that sheet.
Sorry my English
Regards
Horacio