I have the following code to delete named cells for a worksheet:

With Sheets(nme & " DB")
.Names(nme & "cst1").Delete
.Names(nme & "cst2").Delete
.Names(nme & "cst3").Delete
.Names(nme & "cst4").Delete
.Names(nme & "cst5").Delete
.Names(nme & "date").Delete
.Names(nme & "daterng").Delete
.Names(nme & "item").Delete
.Names(nme & "itemno").Delete
.Names(nme & "itemnum").Delete
.Names(nme & "tax").Delete
.Names(nme & "slct").Delete
.Names(nme & "subven").Delete
.Names(nme & "subvenrng").Delete
.Names(nme & "unit").Delete
.Names(nme & "no").Delete
.Names(nme & "norng").Delete
End With

I get and error with this. I think I am not starting the 'with' statement
right. Is there a better way to do this?
Thanks