Borrar hoja excell

[apofis]

supongo que estara guardada en el disco duro,si es asi prueba con esta macro.se puede poner un boton o bien añadiendolo a la macro que tu tienes para que se ejecute una vez finalizado la anterior.
espero que te sirva

Sub FileExists()
Dim fso
Dim file As String
file = "C:\Test.xls" cambia el nombre y ruta
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox file & " no localizado.", vbInformation, "archivo no encontrado"
Else
MsgBox file & " localizado.", vbInformation, "archivo encontrado"
End If
End Sub

Sub DeleteFile()
Dim fso
Dim file As String
file = "C:\test.xls" cambiar nombre y ruta
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
fso.DeleteFile file, True
Else
MsgBox file & " no existe o a sido eliminado!" _
, vbExclamation, "archivo eliminado"
End If
End Sub