VBA move file

[dlrollings83]

Hi

I have no idea where to start on this. I have a file with a command button that when used saves the file as per the details in cell D2 and fires off an email for the spreadsheet to be complete. This then stores the file in C:\Checklists

I want to create another command button that when the document is complete, the file is moved from its current location as above to C:\Completed Checklists

Currently the second command button is to save as to this location and the sheet has to be manually deleted from its original location.

Is there anyway to have a VBA to move the active sheet/workbook (there is only 1 sheet on the workbook) and delete the original?

 

[dlrollings83]

I have tried to following but it does not kill the original file.

I get a message stating Compile Error: Named Argument not found

Private Sub CommandButton2_Click()

Dim FName As String
Dim FPath As String

FPath = "P:\Income Public\Universal credit\Checklists for Completion"
FName = Sheets("UC Checklist").Range("D2").Text
Kill Filename:=FPath & "" & FName

FPath = "H:\Documotive Scans"
FName = Sheets("UC Checklist").Range("D2").Text & "Completed"
ThisWorkbook.SaveAs Filename:=FPath & "" & FName

End Sub