crear carpeta, borrar carpeta y sus contenidos en excel

hola amigos
Tengo un excel lo guarde en el disco C: en la carpeta documentos y deseo eliminar una carpeta y su contenido y luego crearla otra vez de nuevo
Diseñe un codigo para:
1.  Eliminar el contenido de interno de una carpeta
2.  Eliminar la carpeta
3. crear una carpeta nueva


Sub MostrarRutaArchivo()
micarpeta = ThisWorkbook.Path
uiss = micarpeta & "\" & "NombreNuevaCarpeta"
Call borar_contenido_carpeta
Call borar_carpeta
If Len(Dir(uiss, vbDirectory)) = 0 Then
MkDir uiss ' crear carpeta
End If
End Sub
Sub borar_contenido_carpeta()
micarpeta = ThisWorkbook.Path
uiss = micarpeta & "\" & "NombreNuevaCarpeta" '
On Error GoTo final ' en caso de error salir del sistema
Kill uiss & "" & "\*.*"
final:
End Sub
Sub borar_carpeta()
micarpeta = ThisWorkbook.Path
uiss = micarpeta & "\" & "NombreNuevaCarpeta"
On Error GoTo final1 ' en caso de error salir del sistema
RmDir uiss 'eliminar carpeta
final1:
End Sub