'delete tabella1 (table's name) if exists On Error Resume Next ActiveSheet.ListObjects("Tabella1").Unlist