Boa Noite a todos;

Estou tentando desenvolver uma macro que salve um novo arquivo a partir de uma Plan1, eliminando as outras duas Plan's do documento, no mesmo caminho do arquivo de origem. Entretanto ocorrem dois problemas, o primeiro é que ele pede a confirmação da eliminação das Plan's que estão sendo deletadas toda vez que rodo a rotina. A segunda é que a macro que criei não esta funcionando completamente, e mesmo com o uso da função ThisWorkbook.Path, ele não é salvo na pasta.
Alguem poderia me ajudar?
Segue codigo abaixo:

Private Sub CommandButton2_Click()
' salvar checklist
On Error Resume Next
    Dim Caminho As String 'declaracao da variável caminho
    Dim resultado As VbMsgBoxResult
    resultado = MsgBox("O Checklist será finalizado. Para um novo Checklist abra novamente o arquivo", vbYesNo, "Salvar CheckList")
    Caminho = ThisWorkbook.Path & ""
    If resultado = vbYes And Range("E4").Value <> "" And Range("E5").Value <> "" _
    And Range("K4").Value <> "" And Range("K5").Value <> "" And Range("B7").Value <> "" Then
    ActiveWorkbook.SaveAs Filename:=Caminho & [E4].Value & "_" & [E5].Value & "_" & [K4].Value & "_" & [K5].Value & ".xls"
    Sheets("Plan1").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Plan2").Select
    ActiveWindow.SelectedSheets.Delete
    ActiveSheet.Shapes.Range(Array("CommandButton1", "CommandButton2", "CommandButton3")).Select
    Selection.Delete
    MsgBox ("Planilha Salva Como : ") & [E4].Value & "_" & [E5].Value & "_" & [K4].Value & "_" & [K5].Value & ".xls"
    ElseIf Range("B7").Value = "" Then
    MsgBox "O Checklist deve conter no mínimo um Ambiente", vbCritical, "ERRO Ambiente"
End If

End Sub