vFile = "c:\temp\Draft.pdf" 
killFile vFile
Worksheets("TblOne").ExportAsFixedFormat Type:=xlTypePDF FileName:=vFile  Quality:=xlQualityStandard


Public Sub KillFile(ByVal pvFile)
Dim FSO
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile pvFile
Set FSO = Nothing
End Sub