Try

Sheets(pstrSheetName).ListObjects(1).Unlist
or

Sheets(pstrSheetName).ListObjects(1).Delete